[Emacs-diffs] Changes to emacs/lisp/progmodes/which-func.el

[Miles Bader]

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