summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMiles Bader <miles@gnu.org>2005-06-14 22:49:09 +0000
committerMiles Bader <miles@gnu.org>2005-06-14 22:49:09 +0000
commitb6116bd2567b686d591306f5b31e3c8e35952f75 (patch)
tree171ee34c2052e1289bb64635f2d39d63a810ac66
parent149012657f2ad1417d76b5904f7f3bfaa288e4ef (diff)
downloademacs-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/ChangeLog8
-rw-r--r--lisp/buff-menu.el6
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"))
" "