# HG changeset patch
# User Juri Linkov <juri@jurta.org>
# Date 1252544055 0
# Node ID add40a32098b77f19825c438a8acdaefd131e837
# Parent  6fd9d35186e03e5f0c1a0ef93de37a4fd6119f53
(isearch-text-char-description): Propertize escape
character sequences with the `escape-glyph' face.  (Bug#4344)

diff -r 6fd9d35186e0 -r add40a32098b lisp/isearch.el
--- 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.