From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 7 Jul 1995 13:27:15 +0000 (+0000)
Subject: (font-lock-make-faces): On grayscale screen,
X-Git-Tag: emacs-19.34~3375
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4d8765a2ddd6e0980afb973a6bedabeda47b2a00;p=emacs.git

(font-lock-make-faces): On grayscale screen,
use grays for background, not foreground.
---

diff --git a/lisp/font-lock.el b/lisp/font-lock.el
index d2dd20ab028..f451d3aecfa 100644
--- a/lisp/font-lock.el
+++ b/lisp/font-lock.el
@@ -275,21 +275,21 @@ See `font-lock-make-face' and `list-faces-display'."
 						    grayshade greyshade))
 		     (list
 		      (list 'font-lock-comment-face
-			    (if light-bg "DimGray" "Gray80") nil t t nil)
+			    nil (if light-bg "Gray80" "DimGray") t t nil)
 		      (list 'font-lock-string-face
-			    (if light-bg "Gray50" "LightGray") nil nil t nil)
+			    nil (if light-bg "Gray50" "LightGray") nil t nil)
 		      (list 'font-lock-keyword-face
-			    (if light-bg "DimGray" "Gray90") nil t nil nil)
+			    nil (if light-bg "Gray90" "DimGray") t nil nil)
 		      (list 'font-lock-function-name-face
 			    (cdr (assq 'background-color (frame-parameters)))
 			    (cdr (assq 'foreground-color (frame-parameters)))
 			    t nil nil)
 		      (list 'font-lock-variable-name-face
-			    (if light-bg "DimGray" "Gray90") nil t t nil)
+			    nil (if light-bg "Gray90" "DimGray") t t nil)
 		      (list 'font-lock-type-face
-			    (if light-bg "DimGray" "Gray80") nil t nil t)
+			    nil (if light-bg "Gray80" "DimGray") t nil t)
 		      (list 'font-lock-reference-face
-			    (if light-bg "Gray50" "LightGray") nil t nil t)))
+			    nil (if light-bg "LightGray" "Gray50") t nil t)))
 		    (light-bg		; light colour background
 		     '((font-lock-comment-face "Firebrick")
 		       (font-lock-string-face "RosyBrown")