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.

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"))
                 "  "