diff options
| author | Kim F. Storm <storm@cua.dk> | 2004-12-02 10:43:56 +0000 |
|---|---|---|
| committer | Kim F. Storm <storm@cua.dk> | 2004-12-02 10:43:56 +0000 |
| commit | ea7568c30a2bd7f9c9ef3ea460cfaad64d6c69e1 (patch) | |
| tree | 640e4794baeb5a7878e0bf8ee2249c7017d17483 | |
| parent | 63b446bce0c9d3e31dca2f09c4d91227233151af (diff) | |
| download | emacs-ea7568c30a2bd7f9c9ef3ea460cfaad64d6c69e1.tar.gz emacs-ea7568c30a2bd7f9c9ef3ea460cfaad64d6c69e1.tar.bz2 emacs-ea7568c30a2bd7f9c9ef3ea460cfaad64d6c69e1.zip | |
* faces.el (escape-glyph): Rename from glyph.
(standard-display-table): Set it here. Add escape-glyph face to
extra slot characters.
| -rw-r--r-- | lisp/faces.el | 21 |
1 files changed, 18 insertions, 3 deletions
diff --git a/lisp/faces.el b/lisp/faces.el index 93fd4204351..4df2d444cb3 100644 --- a/lisp/faces.el +++ b/lisp/faces.el @@ -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))) + + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |