From 9d78ff8be7ca60314fc76cca5c5be99ba6a136bc Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 23 Dec 1993 03:28:10 +0000 Subject: [PATCH] (isearch-text-char-description): Treat TAB as ctl char. (isearch-text-char-description): Really call text-char-description for ctl chars. --- lisp/isearch.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) 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 -;; |$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. -- 2.39.5