From 00db469c65f52f86402bcce684fe48ab5c612861 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sat, 26 Nov 2011 10:50:48 +0200 Subject: Tweak whitespace-newline color for 16-color displays. lisp/whitespace.el (whitespace-newline): Use a different foreground color for 16-color light-background displays. --- lisp/ChangeLog | 5 +++++ lisp/whitespace.el | 6 +++++- 2 files changed, 10 insertions(+), 1 deletion(-) 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 + + * whitespace.el (whitespace-newline): Use a different foreground + color for 16-color light-background displays. + 2011-11-24 Chong Yidong * 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. -- cgit v1.2.3