# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1101984236 0
# Node ID 8acd64f0bef09b85e6ece94a455d0d34361420d5
# Parent  27f1bbfc940265412aa7e26e0738d347f8ae6527
* faces.el (escape-glyph): Rename from glyph.
(standard-display-table): Set it here.  Add escape-glyph face to
extra slot characters.

diff -r 27f1bbfc9402 -r 8acd64f0bef0 lisp/faces.el
--- a/lisp/faces.el	Thu Dec 02 07:48:25 2004 +0000
+++ b/lisp/faces.el	Thu Dec 02 10:43:56 2004 +0000
@@ -2022,13 +2022,28 @@
   :group 'basic-faces)
 
 
-(defface glyph
-  '((t
-     :inherit secondary-selection))
+;; 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."
   :group 'basic-faces)
 
+(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)))
+
+
 
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;