mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-23 18:47:57 +00:00
Code Issues Releases Activity

(isearch-text-char-description): Propertize escape

Browse Source 
character sequences with the `escape-glyph' face.  (Bug#4344)
This commit is contained in:
Juri Linkov 2009-09-10 00:54:15 +00:00
parent 83ccc32ced
commit cf5e419931
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/isearch.el
View File

@ -2496,8 +2496,8 @@ since they have special meaning in a regexp."
(defun isearch-text-char-description (c)
(cond
((< c ?\s) (format "^%c" (+ c 64)))
((= c ?\^?) "^?")
((< c ?\s) (propertize (format "^%c" (+ c 64)) 'face 'escape-glyph))
((= c ?\^?) (propertize "^?" 'face 'escape-glyph))
(t (char-to-string c))))
;; General function to unread characters or events.