Commit 9ce2eb5e authored by Miles Bader's avatar Miles Bader
Browse files

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.
parent 63a5fd63
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
......
......@@ -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")
"]")
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment