Mercurial > emacs
comparison lisp/faces.el @ 58726:8acd64f0bef0
* faces.el (escape-glyph): Rename from glyph.
(standard-display-table): Set it here. Add escape-glyph face to
extra slot characters.
author | Kim F. Storm <storm@cua.dk> |
---|---|
date | Thu, 02 Dec 2004 10:43:56 +0000 |
parents | 2015bd985187 |
children | 13bd65942658 |
comparison
equal
deleted
inserted
replaced
58725:27f1bbfc9402 | 58726:8acd64f0bef0 |
---|---|
2020 :version "21.1" | 2020 :version "21.1" |
2021 :group 'font-lock ; like `show-trailing-whitespace' | 2021 :group 'font-lock ; like `show-trailing-whitespace' |
2022 :group 'basic-faces) | 2022 :group 'basic-faces) |
2023 | 2023 |
2024 | 2024 |
2025 (defface glyph | 2025 ;; Make escape characters stand out in display |
2026 '((t | 2026 |
2027 :inherit secondary-selection)) | 2027 (defface escape-glyph |
2028 '((t :inherit secondary-selection)) | |
2028 "Basic face for displaying \\ and ^ in multichar glyphs. | 2029 "Basic face for displaying \\ and ^ in multichar glyphs. |
2029 It is also used for ... in ellipses." | 2030 It is also used for ... in ellipses." |
2030 :group 'basic-faces) | 2031 :group 'basic-faces) |
2032 | |
2033 (or standard-display-table | |
2034 ;; avoid using autoloaded make-display-table here | |
2035 (setq standard-display-table (make-char-table 'display-table nil))) | |
2036 | |
2037 (let* ((face (lsh (face-id 'escape-glyph) 19)) | |
2038 (backslash (+ face ?\\)) | |
2039 (dot (+ face ?.))) | |
2040 (set-char-table-extra-slot standard-display-table 2 backslash) | |
2041 (aset standard-display-table 2208 (vector backslash ?\s)) | |
2042 (aset standard-display-table 2221 (vector backslash ?-)) | |
2043 (set-char-table-extra-slot standard-display-table 3 (+ face ?^)) | |
2044 (set-char-table-extra-slot standard-display-table 4 (vector dot dot dot))) | |
2045 | |
2031 | 2046 |
2032 | 2047 |
2033 | 2048 |
2034 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | 2049 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
2035 ;;; Manipulating font names. | 2050 ;;; Manipulating font names. |