From bf6012e5b1ec29b02dbb2f6b000471ca418055dc Mon Sep 17 00:00:00 2001 From: Dan Nicolaescu Date: Wed, 13 Jul 2011 17:33:08 +0200 Subject: [PATCH] Use "yellow" on low color terminals for comments * font-lock.el (font-lock-comment-face): Use the high contrast "yellow" color for font-lock-comment-face on low color terminals using a dark background color. Fixes: debbugs:4221 --- lisp/ChangeLog | 6 ++++++ lisp/font-lock.el | 10 ++-------- 2 files changed, 8 insertions(+), 8 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index d27f6b3c2be..2bc706f8a61 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2011-07-13 Dan Nicolaescu + + * font-lock.el (font-lock-comment-face): Use the high contrast + "yellow" color for font-lock-comment-face on low color terminals + using a dark background color (bug#4221). + 2011-07-13 Lars Magne Ingebrigtsen * dired.el (dired-insert-set-properties): Make the doc string diff --git a/lisp/font-lock.el b/lisp/font-lock.el index 3743dd54b7a..6c76142c59d 100644 --- a/lisp/font-lock.el +++ b/lisp/font-lock.el @@ -1856,19 +1856,13 @@ Sets various variables using `font-lock-defaults' and (((class color) (min-colors 8) (background light)) (:foreground "red")) (((class color) (min-colors 8) (background dark)) - ) + (:foreground "yellow")) (t (:weight bold :slant italic))) "Font Lock mode face used to highlight comments." :group 'font-lock-faces) (defface font-lock-comment-delimiter-face - '((default :inherit font-lock-comment-face) - (((class grayscale))) - (((class color) (min-colors 16))) - (((class color) (min-colors 8) (background light)) - :foreground "red") - (((class color) (min-colors 8) (background dark)) - :foreground "red1")) + '((default :inherit font-lock-comment-face)) "Font Lock mode face used to highlight comment delimiters." :group 'font-lock-faces) -- 2.39.5