From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 4 Aug 1997 02:57:47 +0000 (+0000)
Subject: Alternative colors for standard faces if dark background.
X-Git-Tag: emacs-20.1~832
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1c1e0fe5df9f65f8ee15725724bb8304fb9a4872;p=emacs.git

Alternative colors for standard faces if dark background.
---

diff --git a/lisp/faces.el b/lisp/faces.el
index 0ff08e2efe7..cfa5b223b7f 100644
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -1584,15 +1584,23 @@ examine the brightness for you."
 	     (underline "Underline text." ((t (:underline t))))
 	     (default "Used for text not covered by other faces." ((t nil)))
 	     (highlight "Highlight text in some way."
-			((((class color)) (:background "darkseagreen2"))
+			((((class color) (background light))
+			  (:background "darkseagreen2"))
+			 (((class color) (background dark))
+			  (:background "darkolivegreen"))
 			 (t (:inverse-video t))))
 	     (modeline "Used for displaying the modeline."
 		       ((t (:inverse-video t))))
 	     (region "Used for displaying the region."
-		     ((t (:background "gray"))))
+		     ((((class color) (background dark))
+		       (:background "blue"))
+		      (t (:background "gray"))))
 	     (secondary-selection
 	      "Used for displaying the secondary selection."
-	      ((((class color)) (:background "paleturquoise"))
+	      ((((class color) (background light))
+		(:background "paleturquoise"))
+	       (((class color) (background dark))
+		(:background "darkslateblue"))
 	       (t (:inverse-video t))))))
       entry symbol doc spec)
   (while all