/[emacs]/emacs/lisp/progmodes/which-func.el
ViewVC logotype

Diff of /emacs/lisp/progmodes/which-func.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.10 by miles, Wed Jun 15 00:14:41 2005 UTC revision 1.11 by miles, Wed Jun 15 04:35:23 2005 UTC
# Line 114  Zero means compute the Imenu menu regard Line 114  Zero means compute the Imenu menu regard
114    "Keymap to display on mode line which-func.")    "Keymap to display on mode line which-func.")
115    
116  (defface which-func  (defface which-func
117    '((t (:inherit font-lock-function-name-face)))    ;; Whether `font-lock-function-name-face' is an appropriate face to
118    "Face used to highlight mode line function names.    ;; inherit depends on the mode-line face; define several variants based
119  Defaults to `font-lock-function-name-face' if font-lock is loaded."    ;; on the default mode-line face.
120      '(;; The default mode-line face on a high-color display is a relatively
121        ;; light color ("grey75"), and only the light-background variant of
122        ;; `font-lock-function-name-face' is visible against it.
123        (((class color) (min-colors 88) (background light))
124         :inherit font-lock-function-name-face)
125        ;; The default mode-line face on other display types is inverse-video;
126        ;; it seems that only in the dark-background case is
127        ;; `font-lock-function-name-face' visible against it.
128        (((class grayscale mono) (background dark))
129         :inherit font-lock-function-name-face)
130        (((class color) (background light))
131         :inherit font-lock-function-name-face)
132        ;; If none of the above cases, use an explicit color chosen to contrast
133        ;; well with the default mode-line face.
134        (((class color) (min-colors 88) (background dark))
135         :foreground "Blue1")
136        (((background dark))
137         :foreground "Blue1")
138        (t
139         :foreground "LightSkyBlue"))
140      "Face used to highlight mode line function names."
141    :group 'which-func)    :group 'which-func)
142  ;; backward-compatibility alias  ;; backward-compatibility alias
143  (put 'which-func-face 'face-alias 'which-func)  (put 'which-func-face 'face-alias 'which-func)

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26