From 92d874e6873c4366fc222ae504c4a709fe117b22 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 15 Jul 1997 00:23:03 +0000 Subject: [PATCH] (isearch-char-to-string): Use char-to-string. (isearch-quote-char): Add nonascii-insert-offset. --- lisp/isearch.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lisp/isearch.el b/lisp/isearch.el index 1fc4ce97d63..9e0c3102fae 100644 --- a/lisp/isearch.el +++ b/lisp/isearch.el @@ -1162,7 +1162,8 @@ and the meta character is unread so that it applies to editing the string." (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 @@ since they have special meaning in a regexp." ;; 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 ?\^?))) -- 2.39.2