Mercurial > emacs
changeset 58851:68314bab2976
Delete code to set display table.
(escape-glyph): Redefine to be less loud. (Copy minibuffer-prompt.)
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 08 Dec 2004 21:31:32 +0000 |
| parents | 22f1825709fb |
| children | 5a16d4350770 |
| files | lisp/faces.el |
| diffstat | 1 files changed, 4 insertions(+), 25 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/faces.el Wed Dec 08 20:10:22 2004 +0000 +++ b/lisp/faces.el Wed Dec 08 21:31:32 2004 +0000 @@ -2021,32 +2021,11 @@ :group 'font-lock ; like `show-trailing-whitespace' :group 'basic-faces) - -;; 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." +(defface escape-glyph '((((background dark)) :foreground "cyan") + (((type pc)) :foreground "magenta") + (t :foreground "dark blue")) + "Face for displaying \\ and ^ in multichar glyphs." :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))) - - - ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; Manipulating font names.