From cf5e4199310dd3d70453b5115d793957a149c08b Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Thu, 10 Sep 2009 00:54:15 +0000 Subject: [PATCH] (isearch-text-char-description): Propertize escape character sequences with the `escape-glyph' face. (Bug#4344) --- lisp/isearch.el | 4 ++-- 1 file 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. -- 2.39.2