Tweak whitespace-newline color for 16-color displays.

 lisp/whitespace.el (whitespace-newline): Use a different foreground
 color for 16-color light-background displays.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 117a5c2fed6214b891dc9ee2c95cde8e650e4efe..230e299b7cfef5e7a919dadcbe9a12627a9764ec 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-11-26  Eli Zaretskii  <eliz@gnu.org>
+
+       * whitespace.el (whitespace-newline): Use a different foreground
+       color for 16-color light-background displays.
+
 2011-11-24  Chong Yidong  <cyd@gnu.org>
 
        * window.el (display-buffer--special-action): Doc fix.

diff --git a/lisp/whitespace.el b/lisp/whitespace.el
index 53a35b4f0b3ffa8cd630199014f0afb6c9f39327..57f51e21fbbfdf9f1ad06e0bd22bfb79160974c6 100644 (file)
--- a/lisp/whitespace.el
+++ b/lisp/whitespace.el
@@ -623,8 +623,12 @@ and `newline'."
 (defface whitespace-newline
   '((((class color) (background dark))
      (:foreground "darkgray" :bold nil))
-    (((class color) (background light))
+    (((class color) (min-colors 88) (background light))
      (:foreground "lightgray" :bold nil))
+    ;; Displays with 16 colors use lightgray as background, so using a
+    ;; lightgray foreground makes the newline mark invisible.
+    (((class color) (background light))
+     (:foreground "brown" :bold nil))
     (t (:underline t :bold nil)))
   "Face used to visualize NEWLINE char mapping.