[Emacs-diffs] Changes to emacs/lisp/faces.el [emacs-unicode-2]

[Miles Bader]

Index: emacs/lisp/faces.el
diff -c emacs/lisp/faces.el:1.279.4.5 emacs/lisp/faces.el:1.279.4.6
*** emacs/lisp/faces.el:1.279.4.5       Wed Sep 15 08:59:55 2004
--- emacs/lisp/faces.el Wed Dec  8 05:02:14 2004
***************
*** 2023,2028 ****
--- 2023,2053 ----
    :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."
+   :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.