From bf2cea1da000b3e5ee09239ecf00cd885fac193d Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Thu, 12 May 2005 20:04:32 +0000 Subject: [PATCH] (font-lock-comment-delimiter-face): Inherit from font-lock-comment-face rather than copying its setting. --- lisp/ChangeLog | 5 +++++ lisp/font-lock.el | 26 +++++--------------------- 2 files changed, 10 insertions(+), 21 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 6f298bace3e..0c25bc236d6 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2005-05-12 Stefan Monnier + + * font-lock.el (font-lock-comment-delimiter-face): Inherit from + font-lock-comment-face rather than copying its setting. + 2005-05-12 Andreas Schwab * eshell/esh-mode.el (eshell-send-input): Doc fix. diff --git a/lisp/font-lock.el b/lisp/font-lock.el index 1657400fe77..006d8713f9a 100644 --- a/lisp/font-lock.el +++ b/lisp/font-lock.el @@ -1655,27 +1655,6 @@ Sets various variables using `font-lock-defaults' (or, if nil, using ;; But now we do it the custom way. Note that `defface' will not overwrite any ;; faces declared above via `custom-declare-face'. -(defface font-lock-comment-delimiter-face - '((((class grayscale) (background light)) - (:foreground "DimGray" :weight bold :slant italic)) - (((class grayscale) (background dark)) - (:foreground "LightGray" :weight bold :slant italic)) - (((class color) (min-colors 88) (background light)) - (:foreground "Firebrick")) - (((class color) (min-colors 88) (background dark)) - (:foreground "chocolate1")) - (((class color) (min-colors 16) (background light)) - (:foreground "red")) - (((class color) (min-colors 16) (background dark)) - (:foreground "red1")) - (((class color) (min-colors 8) (background light)) - (:foreground "red")) - (((class color) (min-colors 8) (background dark)) - (:foreground "red1")) - (t (:weight bold :slant italic))) - "Font Lock mode face used to highlight comment delimiters." - :group 'font-lock-highlighting-faces) - (defface font-lock-comment-face '((((class grayscale) (background light)) (:foreground "DimGray" :weight bold :slant italic)) @@ -1697,6 +1676,11 @@ Sets various variables using `font-lock-defaults' (or, if nil, using "Font Lock mode face used to highlight comments." :group 'font-lock-highlighting-faces) +(defface font-lock-comment-delimiter-face + '((t :inherit font-lock-comment-face)) + "Font Lock mode face used to highlight comment delimiters." + :group 'font-lock-highlighting-faces) + (defface font-lock-string-face '((((class grayscale) (background light)) (:foreground "DimGray" :slant italic)) (((class grayscale) (background dark)) (:foreground "LightGray" :slant italic)) -- 2.39.2