# HG changeset patch # User Miles Bader # Date 1118794481 0 # Node ID 581fdd0b552df0b7af293aa6b4d1def65a169460 # Parent 68bd40c509268ea5eb21a1ccd6dcb3957cec85ec 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. diff -r 68bd40c50926 -r 581fdd0b552d lisp/ChangeLog --- a/lisp/ChangeLog Tue Jun 14 23:56:26 2005 +0000 +++ b/lisp/ChangeLog Wed Jun 15 00:14:41 2005 +0000 @@ -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 -r 68bd40c50926 -r 581fdd0b552d lisp/progmodes/which-func.el --- a/lisp/progmodes/which-func.el Tue Jun 14 23:56:26 2005 +0000 +++ b/lisp/progmodes/which-func.el Wed Jun 15 00:14:41 2005 +0000 @@ -113,17 +113,19 @@ 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") "]")