(no-break-space, shadow): New faces.

(escape-glyph): Use less loud colors pink2 and red4.

diff --git a/lisp/faces.el b/lisp/faces.el
index b821d66f72e8fdc74994367cc5f5c0b9553f8cac..c02c91cde86528e2f0e3483f28d762e71a7e4c91 100644 (file)
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -2084,13 +2084,29 @@ Note: Other faces cannot inherit from the cursor face."
   :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")
+
 \f
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;; Manipulating font names.