From 4d8765a2ddd6e0980afb973a6bedabeda47b2a00 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 7 Jul 1995 13:27:15 +0000 Subject: [PATCH] (font-lock-make-faces): On grayscale screen, use grays for background, not foreground. --- lisp/font-lock.el | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) 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") -- 2.39.2