From 1c1e0fe5df9f65f8ee15725724bb8304fb9a4872 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 4 Aug 1997 02:57:47 +0000 Subject: [PATCH] Alternative colors for standard faces if dark background. --- lisp/faces.el | 14 +++++++++++--- 1 file changed, 11 insertions(+), 3 deletions(-) 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 -- 2.39.2