(Buffer-menu-buffer+size): Don't clobber buffer name.

2 files changed, 9 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 815a1af9cf6..682e03904c2 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-01-05  Andreas Schwab  <schwab@suse.de>
+
+        * buff-menu.el (Buffer-menu-buffer+size): Don't clobber buffer
+        name.
+
 2003-01-05  Dave Love  <fx@gnu.org>
 
         * language/european.el ("Latin-6", "Croatian"): New.
diff --git a/lisp/buff-menu.el b/lisp/buff-menu.el
index a49244ce60d..205a8ab7d32 100644
--- a/lisp/buff-menu.el
+++ b/lisp/buff-menu.el
@@ -1,6 +1,6 @@
 ;;; buff-menu.el --- buffer menu main function and support functions
 
-;; Copyright (C) 1985, 86, 87, 93, 94, 95, 2000, 2001, 2002
+;; Copyright (C) 1985, 86, 87, 93, 94, 95, 2000, 2001, 2002, 2003
 ;;   Free Software Foundation, Inc.
 
 ;; Maintainer: FSF
@@ -529,7 +529,9 @@ For more information, see the function `buffer-menu'."
                                  (- Buffer-menu-buffer+size-width
                                     (max (length size) 3)
                                     2))
-                      ":"))))           ; narrow ellipsis
+                      ":")))            ; narrow ellipsis
+    ;; Don't put properties on (buffer-name).
+    (setq name (copy-sequence name)))
   (add-text-properties 0 (length name) name-props name)
   (add-text-properties 0 (length size) size-props size)
   (concat name