From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 8 Dec 2004 21:31:32 +0000 (+0000)
Subject: Delete code to set display table.
X-Git-Tag: ttn-vms-21-2-B4~3364
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c14a736ec05d474c39104dc9e6a0ea2278a635fe;p=emacs.git

Delete code to set display table.
(escape-glyph): Redefine to be less loud.  (Copy minibuffer-prompt.)
---

diff --git a/lisp/faces.el b/lisp/faces.el
index cf59931c881..9370440145a 100644
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -2021,32 +2021,11 @@ Note: Other faces cannot inherit from the cursor face."
   :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.