# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 970194956 0
# Node ID 9b1d5a50bddd3d5aca40cc3adff6b93e8868b4f4
# Parent  ad9838a9349c9a8d7ca4737e9c8e6a646de6dfaf
(isearch-text-char-description): Pointless rewrite.

diff -r ad9838a9349c -r 9b1d5a50bddd lisp/isearch.el
--- a/lisp/isearch.el	Fri Sep 29 02:25:32 2000 +0000
+++ b/lisp/isearch.el	Fri Sep 29 02:35:56 2000 +0000
@@ -1763,9 +1763,10 @@
 ;; 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.