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. |