diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-12-23 03:28:10 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-12-23 03:28:10 +0000 |
| commit | 9d78ff8be7ca60314fc76cca5c5be99ba6a136bc (patch) | |
| tree | a369e795ffe2c548c2ed9e2a75c4a07523bf3371 /lisp/isearch.el | |
| parent | 724ecf95f256bf807154ea85d5103ec45c032861 (diff) | |
| download | emacs-9d78ff8be7ca60314fc76cca5c5be99ba6a136bc.tar.gz | |
(isearch-text-char-description): Treat TAB as ctl char.
(isearch-text-char-description): Really call
text-char-description for ctl chars.
Diffstat (limited to 'lisp/isearch.el')
| -rw-r--r-- | lisp/isearch.el | 6 |
1 files 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 <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. |