Mercurial > emacs
changeset 18783:7032bbacd2fa
(isearch-char-to-string): Use char-to-string.
(isearch-quote-char): Add nonascii-insert-offset.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 15 Jul 1997 00:23:03 +0000 |
| parents | 4d1cbc8f69f6 |
| children | 5e56fda13c2f |
| files | lisp/isearch.el |
| diffstat | 1 files changed, 3 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/isearch.el Mon Jul 14 22:54:30 1997 +0000 +++ b/lisp/isearch.el Tue Jul 15 00:23:03 1997 +0000 @@ -1162,7 +1162,8 @@ (defun isearch-quote-char () "Quote special characters for incremental search." (interactive) - (isearch-process-search-char (read-quoted-char (isearch-message t)))) + (isearch-process-search-char (+ (read-quoted-char (isearch-message t)) + nonascii-insert-offset))) (defun isearch-return-char () "Convert return into newline for incremental search. @@ -1669,7 +1670,7 @@ ;; Portability functions to support various Emacs versions. (defun isearch-char-to-string (c) - (make-string 1 c)) + (char-to-string c)) (defun isearch-text-char-description (c) (if (and (integerp c) (or (< c ?\ ) (= c ?\^?)))