Mercurial > emacs

changeset 19114:5e2c2c7ca25e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Alternative colors for standard faces if dark background.
author Richard M. Stallman <rms@gnu.org>
date Mon, 04 Aug 1997 02:57:47 +0000
parents c21a3a07b6fd
children 266915689f9e
files lisp/faces.el
diffstat 1 files changed, 11 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- 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