diff options
| author | Richard M. Stallman <rms@gnu.org> | 2005-04-23 16:45:21 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2005-04-23 16:45:21 +0000 |
| commit | 9177dd93a4370ddeaae127fa8e3a535a07e9588f (patch) | |
| tree | 14e8a40e4a5765d406b504ef0974e076923f42b6 /lisp/font-lock.el | |
| parent | 1639cc2e9254c8b77e9a2f44b3fe1cd6e95d8702 (diff) | |
| download | emacs-9177dd93a4370ddeaae127fa8e3a535a07e9588f.tar.gz | |
(font-lock-comment-face): On terminals with few colors,
use the default appearance.
(font-lock-comment-delimiter-face): New face, new variable.
Diffstat (limited to 'lisp/font-lock.el')
| -rw-r--r-- | lisp/font-lock.el | 26 |
1 files changed, 25 insertions, 1 deletions
diff --git a/lisp/font-lock.el b/lisp/font-lock.el index cced6a13ca2..0b33ac7d9b4 100644 --- a/lisp/font-lock.el +++ b/lisp/font-lock.el @@ -309,6 +309,9 @@ If a number, only buffers greater than this size have fontification messages." (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,7 +1618,7 @@ 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-face +(defface font-lock-comment-delimiter-face '((((class grayscale) (background light)) (:foreground "DimGray" :weight bold :slant italic)) (((class grayscale) (background dark)) @@ -1636,6 +1639,27 @@ 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-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)) |