comparison lisp/faces.el @ 58851:68314bab2976

Delete code to set display table. (escape-glyph): Redefine to be less loud. (Copy minibuffer-prompt.)

58850:22f1825709fb

  "Basic face for highlighting trailing whitespace."
  :version "21.1"
  :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."
  :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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

58851:68314bab2976

  "Basic face for highlighting trailing whitespace."
  :version "21.1"
  :group 'font-lock			; like `show-trailing-whitespace'
  :group 'basic-faces)

(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)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Manipulating font names.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;