diff options
author | Miles Bader <miles@gnu.org> | 2005-06-14 22:49:09 +0000 |
---|---|---|
committer | Miles Bader <miles@gnu.org> | 2005-06-14 22:49:09 +0000 |
commit | b6116bd2567b686d591306f5b31e3c8e35952f75 (patch) | |
tree | 171ee34c2052e1289bb64635f2d39d63a810ac66 | |
parent | 149012657f2ad1417d76b5904f7f3bfaa288e4ef (diff) | |
download | emacs-b6116bd2567b686d591306f5b31e3c8e35952f75.tar.gz |
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-408
Remove "-face" suffix from Buffer-menu-buffer face
2005-06-14 Miles Bader <miles@gnu.org>
* lisp/buff-menu.el (Buffer-menu-buffer): Remove "-face" suffix from
face name.
(Buffer-menu-buffer-face): New backward-compatibility alias for
renamed face.
(list-buffers-noselect): Use renamed Buffer-menu-buffer face.
-rw-r--r-- | lisp/ChangeLog | 8 | ||||
-rw-r--r-- | lisp/buff-menu.el | 6 |
2 files changed, 12 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index f1cb38a45e1..0a491e0d93e 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,11 @@ +2005-06-14 Miles Bader <miles@gnu.org> + + * buff-menu.el (Buffer-menu-buffer): Remove "-face" suffix from + face name. + (Buffer-menu-buffer-face): New backward-compatibility alias for + renamed face. + (list-buffers-noselect): Use renamed Buffer-menu-buffer face. + 2005-06-15 Daniel Pfeiffer <occitan@esperanto.org> * progmodes/make-mode.el (makefile-space, makefile-makepp-perl): diff --git a/lisp/buff-menu.el b/lisp/buff-menu.el index 7e9115a79dc..79247ad30df 100644 --- a/lisp/buff-menu.el +++ b/lisp/buff-menu.el @@ -74,11 +74,13 @@ :type 'boolean :group 'Buffer-menu) -(defface Buffer-menu-buffer-face +(defface Buffer-menu-buffer '((t (:weight bold))) "Face used to highlight buffer name." :group 'Buffer-menu :group 'font-lock-highlighting-faces) +;; backward-compatibility alias +(put 'Buffer-menu-buffer-face 'face-alias 'Buffer-menu-buffer) (defcustom Buffer-menu-buffer+size-width 26 "*How wide to jointly make the buffer name and size columns." @@ -773,7 +775,7 @@ For more information, see the function `buffer-menu'." (int-to-string (nth 3 buffer)) `(buffer-name ,(nth 2 buffer) buffer ,(car buffer) - font-lock-face Buffer-menu-buffer-face + font-lock-face Buffer-menu-buffer mouse-face highlight help-echo "mouse-2: select this buffer")) " " |