Mercurial > emacs
changeset 104896:add40a32098b
(isearch-text-char-description): Propertize escape
character sequences with the `escape-glyph' face. (Bug#4344)
| author | Juri Linkov <juri@jurta.org> |
|---|---|
| date | Thu, 10 Sep 2009 00:54:15 +0000 |
| parents | 6fd9d35186e0 |
| children | d7e64be6966a |
| files | lisp/isearch.el |
| diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/isearch.el Thu Sep 10 00:12:07 2009 +0000 +++ b/lisp/isearch.el Thu Sep 10 00:54:15 2009 +0000 @@ -2496,8 +2496,8 @@ (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.