# HG changeset patch
# User Miles Bader <miles@gnu.org>
# Date 1118810123 0
# Node ID ad343539d42b00368bc503af20533554526bfba7
# Parent  5e8a1785b95ebfb685ef014b9d3373ac9cdee527
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-421

Tweak which-func face

2005-06-15  Miles Bader  <miles@gnu.org>

   * lisp/progmodes/which-func.el (which-func): Only inherit
   `font-lock-function-name-face' when that makes sense against the
   default mode-line face, otherwise set the face color explicitly.

diff -r 5e8a1785b95e -r ad343539d42b lisp/ChangeLog
--- a/lisp/ChangeLog	Wed Jun 15 02:30:03 2005 +0000
+++ b/lisp/ChangeLog	Wed Jun 15 04:35:23 2005 +0000
@@ -1,5 +1,9 @@
 2005-06-15  Miles Bader  <miles@gnu.org>
 
+	* progmodes/which-func.el (which-func): Only inherit
+	`font-lock-function-name-face' when that makes sense against the
+	default mode-line face, otherwise set the face color explicitly.
+
 	* progmodes/cperl-mode.el (cperl-init-faces): Use literal cperl
 	faces instead of (non-existent) variables.
 
diff -r 5e8a1785b95e -r ad343539d42b lisp/progmodes/which-func.el
--- a/lisp/progmodes/which-func.el	Wed Jun 15 02:30:03 2005 +0000
+++ b/lisp/progmodes/which-func.el	Wed Jun 15 04:35:23 2005 +0000
@@ -114,9 +114,30 @@
   "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."
+  ;; 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)