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.

58725:27f1bbfc9402

  :version "21.1"
  :group 'font-lock			; like `show-trailing-whitespace'
  :group 'basic-faces)


(defface glyph
  '((t
     :inherit secondary-selection))
  "Basic face for displaying \\ and ^ in multichar glyphs.
It is also used for ... in ellipses."
  :group 'basic-faces)



;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Manipulating font names.

58726:8acd64f0bef0

  :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)

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