Mercurial > emacs
changeset 12484:bf638e2849d5
(font-lock-make-faces): On grayscale screen,
use grays for background, not foreground.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 07 Jul 1995 13:27:15 +0000 |
| parents | ec77cb3940f1 |
| children | df3f81ceb780 |
| files | lisp/font-lock.el |
| diffstat | 1 files changed, 6 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/font-lock.el Fri Jul 07 13:26:23 1995 +0000 +++ b/lisp/font-lock.el Fri Jul 07 13:27:15 1995 +0000 @@ -275,21 +275,21 @@ 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")