diff options
| author | Juri Linkov | 2009-09-10 00:54:15 +0000 |
|---|---|---|
| committer | Juri Linkov | 2009-09-10 00:54:15 +0000 |
| commit | cf5e4199310dd3d70453b5115d793957a149c08b (patch) | |
| tree | 698b993026fdab397efb6780f7cca832038e34ce | |
| parent | 83ccc32ced9213f3256843b741ba15de0c18db3b (diff) | |
| download | emacs-cf5e4199310dd3d70453b5115d793957a149c08b.tar.gz emacs-cf5e4199310dd3d70453b5115d793957a149c08b.zip | |
(isearch-text-char-description): Propertize escape
character sequences with the `escape-glyph' face. (Bug#4344)
| -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." | |||
| 2496 | 2496 | ||
| 2497 | (defun isearch-text-char-description (c) | 2497 | (defun isearch-text-char-description (c) |
| 2498 | (cond | 2498 | (cond |
| 2499 | ((< c ?\s) (format "^%c" (+ c 64))) | 2499 | ((< c ?\s) (propertize (format "^%c" (+ c 64)) 'face 'escape-glyph)) |
| 2500 | ((= c ?\^?) "^?") | 2500 | ((= c ?\^?) (propertize "^?" 'face 'escape-glyph)) |
| 2501 | (t (char-to-string c)))) | 2501 | (t (char-to-string c)))) |
| 2502 | 2502 | ||
| 2503 | ;; General function to unread characters or events. | 2503 | ;; General function to unread characters or events. |