(Man-default-man-entry): Strip text properties when

snarfing parts of entry because `format' preserves properties.

diff --git a/lisp/man.el b/lisp/man.el
index a2ff8ad3d53b0d85e211f21bf5c1f61000e6977d..a3085e41501e673e43aafde8f6a3631993590b41 100644 (file)
--- a/lisp/man.el
+++ b/lisp/man.el
@@ -569,19 +569,16 @@ This guess is based on the text surrounding the cursor."
       (skip-chars-backward "-a-zA-Z0-9._+:")
       (let ((start (point)))
        (skip-chars-forward "-a-zA-Z0-9._+:")
-       (setq word (buffer-substring start (point))))
+       (setq word (buffer-substring-no-properties start (point))))
       (if (string-match "[._]+$" word)
          (setq word (substring word 0 (match-beginning 0))))
       ;; If looking at something like ioctl(2) or brc(1M), include the
       ;; section number in the returned value.  Remove text properties.
       (forward-word 1)
-      ;; Use `format' here to clear any text props from `word'.
-      (format "%s%s"
-             word
+      (concat word
              (if (looking-at
                   (concat "[ \t]*([ \t]*\\(" Man-section-regexp "\\)[ \t]*)"))
-                 (format "(%s)" (match-string 1))
-               "")))))
+                 (format "(%s)" (match-string-no-properties 1)))))))
 
 \f
 ;; ======================================================================