(font-lock-comment-delimiter-face): Inherit from

font-lock-comment-face rather than copying its setting.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6f298bace3ebfcda6b31f93afc379e9bf5e1a967..0c25bc236d65bd1fc7c288a71123dc7d5d89e16e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2005-05-12  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * font-lock.el (font-lock-comment-delimiter-face): Inherit from
+       font-lock-comment-face rather than copying its setting.
+
 2005-05-12  Andreas Schwab  <schwab@suse.de>
 
        * eshell/esh-mode.el (eshell-send-input): Doc fix.

diff --git a/lisp/font-lock.el b/lisp/font-lock.el
index 1657400fe77e722f71f215d902f5725c5ee4041c..006d8713f9a61ae7b7f64efc705f3cf601883111 100644 (file)
--- 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))