From 9ce2eb5ebbfda09baafdc5b1cb8f807192f96bfe Mon Sep 17 00:00:00 2001 From: Miles Bader Date: Wed, 15 Jun 2005 00:14:41 +0000 Subject: [PATCH] Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-417 Remove "-face" suffix from which-func face 2005-06-14 Miles Bader * 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. --- lisp/ChangeLog | 5 +++++ lisp/progmodes/which-func.el | 6 ++++-- 2 files changed, 9 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index e24311ca65..d932c49995 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,10 @@ 2005-06-14 Miles Bader + * 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 1fa37532ab..960eec2208 100644 --- 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") "]") -- 2.39.2