From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 23 Dec 1993 03:28:10 +0000 (+0000)
Subject: (isearch-text-char-description): Treat TAB as ctl char.
X-Git-Tag: emacs-19.34~10574
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9d78ff8be7ca60314fc76cca5c5be99ba6a136bc;p=emacs.git

(isearch-text-char-description): Treat TAB as ctl char.

(isearch-text-char-description): Really call
text-char-description for ctl chars.
---

diff --git a/lisp/isearch.el b/lisp/isearch.el
index b987867b226..27eb0b2eee0 100644
--- a/lisp/isearch.el
+++ b/lisp/isearch.el
@@ -4,7 +4,7 @@
 
 ;; Author: Daniel LaLiberte <liberte@cs.uiuc.edu>
 
-;; |$Date: 1993/11/24 01:22:40 $|$Revision: 1.53 $
+;; |$Date: 1993/11/26 22:20:23 $|$Revision: 1.55 $
 
 ;; This file is part of GNU Emacs.
 
@@ -1365,7 +1365,9 @@ since they have special meaning in a regexp."
       (make-string 1 (event-to-character c)))))
 
 (defun isearch-text-char-description (c)
-  (isearch-char-to-string c))
+  (if (and (integerp c) (or (< c ?\ ) (= c ?\^?)))
+      (text-char-description c)
+    (isearch-char-to-string c)))
 
 (defun isearch-unread (&rest char-or-events)
   ;; General function to unread characters or events.