mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

Delete code to set display table.

Browse Source 
(escape-glyph): Redefine to be less loud.  (Copy minibuffer-prompt.)
This commit is contained in:
Richard M. Stallman 2004-12-08 21:31:32 +00:00
parent 89281a95cf
commit c14a736ec0
1 changed files with 4 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
lisp/faces.el
View File

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