changeset 49046:d6e1c5f7f468

(Buffer-menu-buffer+size): Don't clobber buffer name.
author Andreas Schwab <schwab@suse.de>
date Sun, 05 Jan 2003 17:45:10 +0000
parents d36c896aa9b9
children f6921ff57fed
files lisp/buff-menu.el
diffstat 1 files changed, 4 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/buff-menu.el	Sun Jan 05 01:06:52 2003 +0000
+++ b/lisp/buff-menu.el	Sun Jan 05 17:45:10 2003 +0000
@@ -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 @@
 				 (- 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