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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 815a1af9cf68d7bf911974d834cf2d94feb24e2a..682e03904c26a368307c545229b241b09dc5da84 100644 (file)
--- 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 a49244ce60d09efa2a258e3d0c26bfa20d199ccd..205a8ab7d32577db7d020135bc27f1090b59fe10 100644 (file)
--- 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