mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-05 07:01:11 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
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.
This commit is contained in:
Miles Bader 2005-06-15 00:14:41 +00:00
parent 63a5fd6303
commit 9ce2eb5ebb
2 changed files with 9 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -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

6
lisp/progmodes/which-func.el
View file

@ -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")
"]")