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

[Richard M . Stallman]

Index: emacs/lisp/faces.el
diff -c emacs/lisp/faces.el:1.293 emacs/lisp/faces.el:1.294
*** emacs/lisp/faces.el:1.293   Thu Dec  2 10:56:05 2004
--- emacs/lisp/faces.el Wed Dec  8 21:31:32 2004
***************
*** 2021,2052 ****
    :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."
    :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.
--- 2021,2031 ----
    :group 'font-lock                   ; like `show-trailing-whitespace'
    :group 'basic-faces)
  
! (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)
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;; Manipulating font names.