diff options
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/buff-menu.el | 6 |
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 |