Mercurial > emacs

changeset 5277:9e91acab81e9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(isearch-text-char-description): Treat TAB as ctl char. (isearch-text-char-description): Really call text-char-description for ctl chars.
author Richard M. Stallman <rms@gnu.org>
date Thu, 23 Dec 1993 03:28:10 +0000
parents c9578602cc61
children 92268e08c166
files lisp/isearch.el
diffstat 1 files changed, 4 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/isearch.el	Thu Dec 23 03:26:46 1993 +0000
+++ b/lisp/isearch.el	Thu Dec 23 03:28:10 1993 +0000
@@ -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 @@
       (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.