diff options
| author | Juri Linkov <juri@jurta.org> | 2009-09-10 00:54:15 +0000 |
|---|---|---|
| committer | Juri Linkov <juri@jurta.org> | 2009-09-10 00:54:15 +0000 |
| commit | cf5e4199310dd3d70453b5115d793957a149c08b (patch) | |
| tree | 698b993026fdab397efb6780f7cca832038e34ce /lisp/isearch.el | |
| parent | 83ccc32ced9213f3256843b741ba15de0c18db3b (diff) | |
| download | emacs-cf5e4199310dd3d70453b5115d793957a149c08b.tar.gz | |
(isearch-text-char-description): Propertize escape
character sequences with the `escape-glyph' face. (Bug#4344)
Diffstat (limited to 'lisp/isearch.el')
| -rw-r--r-- | lisp/isearch.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/isearch.el b/lisp/isearch.el index 30873e8ceeb..752746f09c2 100644 --- a/lisp/isearch.el +++ b/lisp/isearch.el @@ -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. |