summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorEli Zaretskii <eliz@gnu.org>2011-11-26 10:50:48 +0200
committerEli Zaretskii <eliz@gnu.org>2011-11-26 10:50:48 +0200
commit00db469c65f52f86402bcce684fe48ab5c612861 (patch)
treee395979cde87a20011590deed0a92443a3b439c9
parentb0b199744d35273a496b8e9189a28a83c70191da (diff)
downloademacs-00db469c65f52f86402bcce684fe48ab5c612861.tar.gz
Tweak whitespace-newline color for 16-color displays.
lisp/whitespace.el (whitespace-newline): Use a different foreground color for 16-color light-background displays.
-rw-r--r--lisp/ChangeLog5
-rw-r--r--lisp/whitespace.el6
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.