Commit cf5e4199 authored by Juri Linkov's avatar Juri Linkov
Browse files

(isearch-text-char-description): Propertize escape

character sequences with the `escape-glyph' face.  (Bug#4344)
parent 83ccc32c
......@@ -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.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment