(Buffer-menu-buffer): Clear text properties in STRING.

diff --git a/lisp/buff-menu.el b/lisp/buff-menu.el
index f766c0da8fb53d0ed0cd00e50ca90371cd696305..1bd0699e9776f4a77da876970845dc558f03bc96 100644 (file)
--- a/lisp/buff-menu.el
+++ b/lisp/buff-menu.el
@@ -139,6 +139,7 @@ Letters do not insert themselves; instead, they are commands.
   "Return buffer described by this line of buffer menu."
   (let* ((where (Buffer-menu-buffer-name-position))
         (string (buffer-substring (car where) (cdr where))))
+    (set-text-properties 0 (length string) nil string)
     (or (get-buffer string)
        (if error-if-non-existent-p
            (error "No buffer named \"%s\"" string)