[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/progmodes/which-func.el
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/progmodes/which-func.el |
Date: |
Wed, 15 Jun 2005 00:35:27 -0400 |
Index: emacs/lisp/progmodes/which-func.el
diff -c emacs/lisp/progmodes/which-func.el:1.10
emacs/lisp/progmodes/which-func.el:1.11
*** emacs/lisp/progmodes/which-func.el:1.10 Wed Jun 15 00:14:41 2005
--- emacs/lisp/progmodes/which-func.el Wed Jun 15 04:35:23 2005
***************
*** 114,122 ****
"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)
--- 114,143 ----
"Keymap to display on mode line which-func.")
(defface which-func
! ;; Whether `font-lock-function-name-face' is an appropriate face to
! ;; inherit depends on the mode-line face; define several variants based
! ;; on the default mode-line face.
! '(;; The default mode-line face on a high-color display is a relatively
! ;; light color ("grey75"), and only the light-background variant of
! ;; `font-lock-function-name-face' is visible against it.
! (((class color) (min-colors 88) (background light))
! :inherit font-lock-function-name-face)
! ;; The default mode-line face on other display types is inverse-video;
! ;; it seems that only in the dark-background case is
! ;; `font-lock-function-name-face' visible against it.
! (((class grayscale mono) (background dark))
! :inherit font-lock-function-name-face)
! (((class color) (background light))
! :inherit font-lock-function-name-face)
! ;; If none of the above cases, use an explicit color chosen to contrast
! ;; well with the default mode-line face.
! (((class color) (min-colors 88) (background dark))
! :foreground "Blue1")
! (((background dark))
! :foreground "Blue1")
! (t
! :foreground "LightSkyBlue"))
! "Face used to highlight mode line function names."
:group 'which-func)
;; backward-compatibility alias
(put 'which-func-face 'face-alias 'which-func)