# HG changeset patch
# User Juri Linkov <juri@jurta.org>
# Date 1118060300 0
# Node ID a05421095dca0ccc890d21a01e628cfd0fe47ea9
# Parent  2c644f271d4c41ad13dc6a8413c1542bd3e6ac9a
(no-break-space, shadow): New faces.
(escape-glyph): Use less loud colors pink2 and red4.

diff -r 2c644f271d4c -r a05421095dca lisp/faces.el
--- 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.