(isearch-text-char-description): Pointless rewrite.

diff --git a/lisp/isearch.el b/lisp/isearch.el
index 9a4fb86b2b0207d315301bfa05002f17c32f8d3e..1dd746b2b1890c314484b081f4c85107672cc19b 100644 (file)
--- a/lisp/isearch.el
+++ b/lisp/isearch.el
@@ -1763,9 +1763,10 @@ since they have special meaning in a regexp."
 ;; Portability functions to support various Emacs versions.
 
 (defun isearch-text-char-description (c)
-  (if (and (integerp c) (or (< c ?\ ) (= c ?\^?)))
-      (text-char-description c)
-    (char-to-string c)))
+  (cond
+   ((< c ?\ ) (format "^%c" (+ c 64)))
+   ((= c ?\^?) "^?")
+   (t (char-to-string c))))
 
 ;; General function to unread characters or events.
 ;; Also insert them in a keyboard macro being defined.