Tweak whitespace-newline color for 16-color displays.

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

2 files changed, 10 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 117a5c2fed6..230e299b7cf 100644
--- 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 53a35b4f0b3..57f51e21fbb 100644
--- 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.