From e094097c751bd3c02b6b372ad70c4ac8f98fec60 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Sun, 2 Aug 2009 14:20:02 +0000 Subject: [PATCH] * font-lock.el (font-lock-string-face, font-lock-builtin-face) (font-lock-variable-name-face, font-lock-constant-face): Darken the colors for light backgrounds. --- lisp/ChangeLog | 6 ++++++ lisp/font-lock.el | 8 ++++---- 2 files changed, 10 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 1b2180aef81..de88dfbca6b 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2009-08-02 Chong Yidong + + * font-lock.el (font-lock-string-face, font-lock-builtin-face) + (font-lock-variable-name-face, font-lock-constant-face): Darken + the colors for light backgrounds. + 2009-08-01 Eli Zaretskii * mail/rmailsum.el (rmail-header-summary): Ignore letter-case of diff --git a/lisp/font-lock.el b/lisp/font-lock.el index ccbf09b75ea..45e8a70ee6d 100644 --- a/lisp/font-lock.el +++ b/lisp/font-lock.el @@ -1872,7 +1872,7 @@ Sets various variables using `font-lock-defaults' (or, if nil, using (defface font-lock-string-face '((((class grayscale) (background light)) (:foreground "DimGray" :slant italic)) (((class grayscale) (background dark)) (:foreground "LightGray" :slant italic)) - (((class color) (min-colors 88) (background light)) (:foreground "RosyBrown")) + (((class color) (min-colors 88) (background light)) (:foreground "VioletRed4")) (((class color) (min-colors 88) (background dark)) (:foreground "LightSalmon")) (((class color) (min-colors 16) (background light)) (:foreground "RosyBrown")) (((class color) (min-colors 16) (background dark)) (:foreground "LightSalmon")) @@ -1901,7 +1901,7 @@ Sets various variables using `font-lock-defaults' (or, if nil, using (defface font-lock-builtin-face '((((class grayscale) (background light)) (:foreground "LightGray" :weight bold)) (((class grayscale) (background dark)) (:foreground "DimGray" :weight bold)) - (((class color) (min-colors 88) (background light)) (:foreground "Orchid")) + (((class color) (min-colors 88) (background light)) (:foreground "MediumOrchid4")) (((class color) (min-colors 88) (background dark)) (:foreground "LightSteelBlue")) (((class color) (min-colors 16) (background light)) (:foreground "Orchid")) (((class color) (min-colors 16) (background dark)) (:foreground "LightSteelBlue")) @@ -1925,7 +1925,7 @@ Sets various variables using `font-lock-defaults' (or, if nil, using (:foreground "Gray90" :weight bold :slant italic)) (((class grayscale) (background dark)) (:foreground "DimGray" :weight bold :slant italic)) - (((class color) (min-colors 88) (background light)) (:foreground "DarkGoldenrod")) + (((class color) (min-colors 88) (background light)) (:foreground "sienna")) (((class color) (min-colors 88) (background dark)) (:foreground "LightGoldenrod")) (((class color) (min-colors 16) (background light)) (:foreground "DarkGoldenrod")) (((class color) (min-colors 16) (background dark)) (:foreground "LightGoldenrod")) @@ -1951,7 +1951,7 @@ Sets various variables using `font-lock-defaults' (or, if nil, using (:foreground "LightGray" :weight bold :underline t)) (((class grayscale) (background dark)) (:foreground "Gray50" :weight bold :underline t)) - (((class color) (min-colors 88) (background light)) (:foreground "CadetBlue")) + (((class color) (min-colors 88) (background light)) (:foreground "dark cyan")) (((class color) (min-colors 88) (background dark)) (:foreground "Aquamarine")) (((class color) (min-colors 16) (background light)) (:foreground "CadetBlue")) (((class color) (min-colors 16) (background dark)) (:foreground "Aquamarine")) -- 2.39.2