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

[Kim F . Storm]

Index: emacs/lisp/faces.el
diff -c emacs/lisp/faces.el:1.291 emacs/lisp/faces.el:1.292
*** emacs/lisp/faces.el:1.291   Wed Dec  1 18:29:20 2004
--- emacs/lisp/faces.el Thu Dec  2 10:43:56 2004
***************
*** 2022,2034 ****
    :group 'basic-faces)
  
  
! (defface glyph
!   '((t
!      :inherit secondary-selection))
    "Basic face for displaying \\ and ^ in multichar glyphs.
  It is also used for ... in ellipses."
    :group 'basic-faces)
  
  
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
--- 2022,2049 ----
    :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)
  
+ (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)))
+ 
+ 
  
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;