[Emacs-diffs] /srv/bzr/emacs/trunk r106521: Tweak whitespace-newline color for 16-color displays.

[Eli Zaretskii]

------------------------------------------------------------
revno: 106521
committer: Eli Zaretskii <address@hidden>
branch nick: trunk
timestamp: Sat 2011-11-26 10:50:48 +0200
message:
  Tweak whitespace-newline color for 16-color displays.
  
   lisp/whitespace.el (whitespace-newline): Use a different foreground
   color for 16-color light-background displays.
modified:
  lisp/ChangeLog
  lisp/whitespace.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-11-25 15:43:34 +0000
+++ b/lisp/ChangeLog    2011-11-26 08:50:48 +0000
@@ -1,3 +1,8 @@
+2011-11-26  Eli Zaretskii  <address@hidden>
+
+       * whitespace.el (whitespace-newline): Use a different foreground
+       color for 16-color light-background displays.
+
 2011-11-24  Chong Yidong  <address@hidden>
 
        * window.el (display-buffer--special-action): Doc fix.

=== modified file 'lisp/whitespace.el'
--- a/lisp/whitespace.el        2011-11-15 07:55:13 +0000
+++ b/lisp/whitespace.el        2011-11-26 08:50:48 +0000
@@ -623,8 +623,12 @@
 (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.