changeset 10642:0e6b71f2ebad

* man.el (Man-default-man-entry): Remove text properties from result.
author Francesco Potortì <pot@gnu.org>
date Fri, 03 Feb 1995 12:07:37 +0000
parents 88afc23d1474
children 727636abd576
files lisp/man.el
diffstat 1 files changed, 11 insertions(+), 9 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/man.el	Fri Feb 03 10:25:44 1995 +0000
+++ b/lisp/man.el	Fri Feb 03 12:07:37 1995 +0000
@@ -3,8 +3,8 @@
 ;; Copyright (C) 1993, 1994 Free Software Foundation, Inc.
 
 ;; Author:		Barry A. Warsaw <bwarsaw@cen.com>
-;; Last-Modified:	$Date: 1994/11/09 12:38:31 $
-;; Version:		$Revision: 1.59 $
+;; Last-Modified:	$Date: 1994/11/22 04:37:43 $
+;; Version:		$Revision: 1.60 $
 ;; Keywords:		help
 ;; Adapted-By:		ESR, pot
 
@@ -480,13 +480,15 @@
 	     (progn (skip-chars-forward "-a-zA-Z0-9_.") (point))))
       
       ;; If looking at something like ioctl(2) or brc(1M), include the
-      ;; section number in the returned value.
-      (concat
-       default-title
-       (if (looking-at
-	    (concat "[ \t]*([ \t]*\\(" Man-section-regexp "\\)[ \t]*)"))
-	   (format "(%s)" (Man-match-substring 1)))
-       ))))
+      ;; section number in the returned value.  Remove text properties.
+      (let ((result (concat
+		     default-title
+		     (if (looking-at
+			  (concat "[ \t]*([ \t]*\\("
+				  Man-section-regexp "\\)[ \t]*)"))
+			 (format "(%s)" (Man-match-substring 1))))))
+	(set-text-properties 0 (length result) nil result)
+	))))
 
 
 ;; ======================================================================