diff options
author | Richard M. Stallman <rms@gnu.org> | 1995-07-07 13:27:15 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1995-07-07 13:27:15 +0000 |
commit | bcb8fa79c11ef273340f034ca9e3d8b026305aba (patch) | |
tree | 3a6b6c177018f2aa2016f5486c414288d3372ffa /lisp/font-lock.el | |
parent | 25481d4189e062365db9415c8d260675ddddd5f0 (diff) | |
download | emacs-bcb8fa79c11ef273340f034ca9e3d8b026305aba.tar.gz |
(font-lock-make-faces): On grayscale screen,
use grays for background, not foreground.
Diffstat (limited to 'lisp/font-lock.el')
-rw-r--r-- | lisp/font-lock.el | 12 |
1 files 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") |