Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-417

Remove "-face" suffix from which-func face

2005-06-14  Miles Bader  <miles@gnu.org>

   * lisp/progmodes/which-func.el (which-func): Remove "-face" suffix from face
   name.
   (which-func-face): New backward-compatibility alias for renamed face.
   (which-func-format): Use renamed which-func face.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e24311ca65fb2d757d9813f6f3a12d5a990800f9..d932c49995c0ddf50e692241f3d59af48565ae0f 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,10 @@
 2005-06-14  Miles Bader  <miles@gnu.org>
 
+       * progmodes/which-func.el (which-func): Remove "-face" suffix from face
+       name.
+       (which-func-face): New backward-compatibility alias for renamed face.
+       (which-func-format): Use renamed which-func face.
+
        * progmodes/vhdl-mode.el (vhdl-prompt, vhdl-attribute, vhdl-enumvalue)
        (vhdl-function, vhdl-directive, vhdl-reserved-word)
        (vhdl-translate-off): Remove "-face" suffix and "font-lock-" from face

diff --git a/lisp/progmodes/which-func.el b/lisp/progmodes/which-func.el
index 1fa37532ab049d5616955e9ecc2d2d9000da6463..960eec2208c3d002c3335d8bff0090a7ae61047f 100644 (file)
--- a/lisp/progmodes/which-func.el
+++ b/lisp/progmodes/which-func.el
@@ -113,17 +113,19 @@ Zero means compute the Imenu menu regardless of size."
     map)
   "Keymap to display on mode line which-func.")
 
-(defface which-func-face
+(defface which-func
   '((t (:inherit font-lock-function-name-face)))
   "Face used to highlight mode line function names.
 Defaults to `font-lock-function-name-face' if font-lock is loaded."
   :group 'which-func)
+;; backward-compatibility alias
+(put 'which-func-face 'face-alias 'which-func)
 
 (defcustom which-func-format
   `("["
     (:propertize which-func-current
                 local-map ,which-func-keymap
-                face which-func-face
+                face which-func
                 ;;mouse-face highlight ; currently not evaluated :-(
                 help-echo "mouse-1: go to beginning, mouse-2: toggle rest visibility, mouse-3: go to end")
     "]")