# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1102541492 0
# Node ID 68314bab2976cb147a6aff8f46d8e8a1198be014
# Parent  22f1825709fb81f591888b786db5fc9fb60de8a4
Delete code to set display table.
(escape-glyph): Redefine to be less loud.  (Copy minibuffer-prompt.)

diff -r 22f1825709fb -r 68314bab2976 lisp/faces.el
--- a/lisp/faces.el	Wed Dec 08 20:10:22 2004 +0000
+++ b/lisp/faces.el	Wed Dec 08 21:31:32 2004 +0000
@@ -2021,32 +2021,11 @@
   :group 'font-lock			; like `show-trailing-whitespace'
   :group 'basic-faces)
 
-
-;; Make escape characters stand out in display
-
-(defface escape-glyph
-  '((t :inherit secondary-selection))
-  "Basic face for displaying \\ and ^ in multichar glyphs.
-It is also used for ... in ellipses."
+(defface escape-glyph '((((background dark)) :foreground "cyan")
+			(((type pc)) :foreground "magenta")
+			(t :foreground "dark blue"))
+  "Face for displaying \\ and ^ in multichar glyphs."
   :group 'basic-faces)
-
-(put 'display-table 'char-table-extra-slots 6)
-
-(or standard-display-table
-    ;; avoid using autoloaded make-display-table here
-    (setq standard-display-table (make-char-table 'display-table nil)))
-
-(let* ((face (lsh (face-id 'escape-glyph) 19))
-       (backslash (+ face ?\\))
-       (dot (+ face ?.)))
-  (set-char-table-extra-slot standard-display-table 2 backslash)
-  (aset standard-display-table 2208 (vector backslash ?\s))
-  (aset standard-display-table 2221 (vector backslash ?-))
-  (set-char-table-extra-slot standard-display-table 3 (+ face ?^))
-  (set-char-table-extra-slot standard-display-table 4 (vector dot dot dot)))
-
-
-
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;; Manipulating font names.