[Emacs-diffs] emacs/lisp isearch.el

[Juri Linkov]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Juri Linkov <jurta>     09/09/10 00:54:15

Modified files:
        lisp           : isearch.el 

Log message:
        (isearch-text-char-description): Propertize escape
        character sequences with the `escape-glyph' face.  (Bug#4344)

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/isearch.el?cvsroot=emacs&r1=1.346&r2=1.347

Patches:
Index: isearch.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/isearch.el,v
retrieving revision 1.346
retrieving revision 1.347
diff -u -b -r1.346 -r1.347
--- isearch.el  1 Sep 2009 07:24:19 -0000       1.346
+++ isearch.el  10 Sep 2009 00:54:15 -0000      1.347
@@ -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.