(bookmark-bmenu-2-window): go to correct position as well as

[gnu-emacs] / lisp / man.el

diff --git a/lisp/man.el b/lisp/man.el
index 719b12ee9d1c5beca0d953d0f1c90ba1cc8e9cca..4f8c5655c091872acce9c698213936e5aa5fd597 100644 (file)
--- a/lisp/man.el
+++ b/lisp/man.el
@@ -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 @@ default section number is selected from `Man-auto-section-alist'."
             (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)
+       ))))
 
 \f
 ;; ======================================================================