Index: emacs/lisp/progmodes/which-func.el
diff -c emacs/lisp/progmodes/which-func.el:1.9
emacs/lisp/progmodes/which-func.el:1.10
*** emacs/lisp/progmodes/which-func.el:1.9 Sun May 29 08:31:54 2005
--- emacs/lisp/progmodes/which-func.el Wed Jun 15 00:14:41 2005
***************
*** 113,129 ****
map)
"Keymap to display on mode line which-func.")
! (defface which-func-face
'((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)
(defcustom which-func-format
`("["
(:propertize which-func-current
local-map ,which-func-keymap
! face which-func-face
;;mouse-face highlight ; currently not evaluated :-(
help-echo "mouse-1: go to beginning, mouse-2: toggle rest
visibility, mouse-3: go to end")
"]")
--- 113,131 ----
map)
"Keymap to display on mode line which-func.")
! (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
;;mouse-face highlight ; currently not evaluated :-(
help-echo "mouse-1: go to beginning, mouse-2: toggle rest
visibility, mouse-3: go to end")
"]")
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
