Mercurial > emacs
changeset 31974:9b1d5a50bddd
(isearch-text-char-description): Pointless rewrite.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Fri, 29 Sep 2000 02:35:56 +0000 |
| parents | ad9838a9349c |
| children | 8325ae2bc1e4 |
| files | lisp/isearch.el |
| diffstat | 1 files changed, 4 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/isearch.el Fri Sep 29 02:25:32 2000 +0000 +++ b/lisp/isearch.el Fri Sep 29 02:35:56 2000 +0000 @@ -1763,9 +1763,10 @@ ;; Portability functions to support various Emacs versions. (defun isearch-text-char-description (c) - (if (and (integerp c) (or (< c ?\ ) (= c ?\^?))) - (text-char-description c) - (char-to-string c))) + (cond + ((< c ?\ ) (format "^%c" (+ c 64))) + ((= c ?\^?) "^?") + (t (char-to-string c)))) ;; General function to unread characters or events. ;; Also insert them in a keyboard macro being defined.