# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 870663467 0
# Node ID 5e2c2c7ca25eaed0a433318475064c70e3112085
# Parent  c21a3a07b6fdb4122189eec48004409080bca422
Alternative colors for standard faces if dark background.

diff -r c21a3a07b6fd -r 5e2c2c7ca25e lisp/faces.el
--- a/lisp/faces.el	Mon Aug 04 02:44:42 1997 +0000
+++ b/lisp/faces.el	Mon Aug 04 02:57:47 1997 +0000
@@ -1584,15 +1584,23 @@
 	     (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