martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

* faces.el (escape-glyph): Rename from glyph.

Browse Source 
(standard-display-table): Set it here.  Add escape-glyph face to
extra slot characters.
This commit is contained in:
Kim F. Storm
2004-12-02 10:43:56 +00:00
parent 63b446bce0
commit ea7568c30a
1 changed files with 18 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
lisp/faces.el
View File

@@ -2022,13 +2022,28 @@ Note: Other faces cannot inherit from the cursor face."
: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)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;