diff options
| -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 @@ | |||
| 4 | 4 | ||
| 5 | ;; Author: Daniel LaLiberte <liberte@cs.uiuc.edu> | 5 | ;; Author: Daniel LaLiberte <liberte@cs.uiuc.edu> |
| 6 | 6 | ||
| 7 | ;; |$Date: 1993/11/24 01:22:40 $|$Revision: 1.53 $ | 7 | ;; |$Date: 1993/11/26 22:20:23 $|$Revision: 1.55 $ |
| 8 | 8 | ||
| 9 | ;; This file is part of GNU Emacs. | 9 | ;; This file is part of GNU Emacs. |
| 10 | 10 | ||
| @@ -1365,7 +1365,9 @@ since they have special meaning in a regexp." | |||
| 1365 | (make-string 1 (event-to-character c))))) | 1365 | (make-string 1 (event-to-character c))))) |
| 1366 | 1366 | ||
| 1367 | (defun isearch-text-char-description (c) | 1367 | (defun isearch-text-char-description (c) |
| 1368 | (isearch-char-to-string c)) | 1368 | (if (and (integerp c) (or (< c ?\ ) (= c ?\^?))) |
| 1369 | (text-char-description c) | ||
| 1370 | (isearch-char-to-string c))) | ||
| 1369 | 1371 | ||
| 1370 | (defun isearch-unread (&rest char-or-events) | 1372 | (defun isearch-unread (&rest char-or-events) |
| 1371 | ;; General function to unread characters or events. | 1373 | ;; General function to unread characters or events. |