From c14a736ec05d474c39104dc9e6a0ea2278a635fe Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 8 Dec 2004 21:31:32 +0000 Subject: [PATCH] Delete code to set display table. (escape-glyph): Redefine to be less loud. (Copy minibuffer-prompt.) --- lisp/faces.el | 29 ++++------------------------- 1 file changed, 4 insertions(+), 25 deletions(-) diff --git a/lisp/faces.el b/lisp/faces.el index cf59931c881..9370440145a 100644 --- a/lisp/faces.el +++ b/lisp/faces.el @@ -2021,32 +2021,11 @@ Note: Other faces cannot inherit from the cursor face." :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.