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