changeset 63446:bdac7d2ca09e

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.
author Miles Bader <miles@gnu.org>
date Tue, 14 Jun 2005 22:49:09 +0000
parents d888311f9049
children 7976e5fa0225
files lisp/ChangeLog lisp/buff-menu.el
diffstat 2 files changed, 12 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Tue Jun 14 22:40:09 2005 +0000
+++ b/lisp/ChangeLog	Tue Jun 14 22:49:09 2005 +0000
@@ -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):
--- a/lisp/buff-menu.el	Tue Jun 14 22:40:09 2005 +0000
+++ b/lisp/buff-menu.el	Tue Jun 14 22:49:09 2005 +0000
@@ -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 @@
 					 (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"))
 		"  "