Mercurial > emacs
changeset 63050:a05421095dca
(no-break-space, shadow): New faces.
(escape-glyph): Use less loud colors pink2 and red4.
| author | Juri Linkov <juri@jurta.org> |
|---|---|
| date | Mon, 06 Jun 2005 12:18:20 +0000 |
| parents | 2c644f271d4c |
| children | c2487fe1ca34 |
| files | lisp/faces.el |
| diffstat | 1 files changed, 22 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/faces.el Mon Jun 06 12:02:35 2005 +0000 +++ b/lisp/faces.el Mon Jun 06 12:18:20 2005 +0000 @@ -2084,13 +2084,29 @@ :group 'whitespace ; like `show-trailing-whitespace' :group 'basic-faces) -(defface escape-glyph '((((background dark)) :foreground "cyan") - ;; See the comment in minibuffer-prompt for - ;; the reason not to use blue on MS-DOS. - (((type pc)) :foreground "magenta") - (t :foreground "blue")) +(defface escape-glyph + '((((background dark)) :foreground "pink2") + ;; See the comment in minibuffer-prompt for + ;; the reason not to use blue on MS-DOS. + (((type pc)) :foreground "magenta") + (t :foreground "red4")) "Face for characters displayed as ^-sequences or \-sequences." - :group 'basic-faces) + :group 'basic-faces + :version "22.1") + +(defface no-break-space + '((t :inherit escape-glyph :underline t)) + "Face for non-breaking space." + :group 'basic-faces + :version "22.1") + +(defface shadow + '((((background dark)) :foreground "grey70") + (((background light)) :foreground "grey50")) + "Basic face for shadowed text." + :group 'basic-faces + :version "22.1") + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; Manipulating font names.