Mercurial > emacs

changeset 63457:581fdd0b552d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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.
author Miles Bader <miles@gnu.org>
date Wed, 15 Jun 2005 00:14:41 +0000
parents 68bd40c50926
children 3265e9c7ab3d
files lisp/ChangeLog lisp/progmodes/which-func.el
diffstat 2 files changed, 9 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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  <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
--- 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")
     "]")