/[emacs]/emacs/lisp/faces.el
ViewVC logotype

Diff of /emacs/lisp/faces.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.293 by kfstorm, Thu Dec 2 10:56:05 2004 UTC revision 1.294 by rms, Wed Dec 8 21:31:32 2004 UTC
# Line 2021  Note: Other faces cannot inherit from th Line 2021  Note: Other faces cannot inherit from th
2021    :group 'font-lock                     ; like `show-trailing-whitespace'    :group 'font-lock                     ; like `show-trailing-whitespace'
2022    :group 'basic-faces)    :group 'basic-faces)
2023    
2024    (defface escape-glyph '((((background dark)) :foreground "cyan")
2025  ;; Make escape characters stand out in display                          (((type pc)) :foreground "magenta")
2026                            (t :foreground "dark blue"))
2027  (defface escape-glyph    "Face for displaying \\ and ^ in multichar glyphs."
   '((t :inherit secondary-selection))  
   "Basic face for displaying \\ and ^ in multichar glyphs.  
 It is also used for ... in ellipses."  
2028    :group 'basic-faces)    :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)))  
   
   
   
2029    
2030  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2031  ;;; Manipulating font names.  ;;; Manipulating font names.

Legend:
Removed from v.1.293  
changed lines
  Added in v.1.294

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26