[Emacs-diffs] Changes to emacs/lisp/font-lock.el

[Stefan Monnier]

Index: emacs/lisp/font-lock.el
diff -c emacs/lisp/font-lock.el:1.250 emacs/lisp/font-lock.el:1.251
*** emacs/lisp/font-lock.el:1.250       Thu May 12 08:57:17 2005
--- emacs/lisp/font-lock.el     Thu May 12 20:04:09 2005
***************
*** 1655,1681 ****
  
  ;; 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))
--- 1655,1660 ----
***************
*** 1697,1702 ****
--- 1676,1686 ----
    "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))