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

[Richard M . Stallman]

Index: emacs/lisp/font-lock.el
diff -c emacs/lisp/font-lock.el:1.238 emacs/lisp/font-lock.el:1.239
*** emacs/lisp/font-lock.el:1.238       Fri Apr  8 14:26:13 2005
--- emacs/lisp/font-lock.el     Sat Apr 23 16:45:21 2005
***************
*** 309,314 ****
--- 309,317 ----
  (defvar font-lock-comment-face                'font-lock-comment-face
    "Face name to use for comments.")
  
+ (defvar font-lock-comment-delimiter-face 'font-lock-comment-delimiter-face
+   "Face name to use for comments.")
+ 
  (defvar font-lock-string-face         'font-lock-string-face
    "Face name to use for strings.")
  
***************
*** 1615,1621 ****
  
  ;; 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-face
    '((((class grayscale) (background light))
       (:foreground "DimGray" :weight bold :slant italic))
      (((class grayscale) (background dark))
--- 1618,1624 ----
  
  ;; 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))
***************
*** 1636,1641 ****
--- 1639,1665 ----
    "Font Lock mode face used to highlight comments."
    :group 'font-lock-highlighting-faces)
  
+ (defface font-lock-comment-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))
+      )
+     (((class color) (min-colors 8) (background dark))
+      )
+     (t (:weight bold :slant italic)))
+   "Font Lock mode face used to highlight comments."
+   :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))