From 3c75023fda350b03a95c982e4e42b4233111c8a4 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 3 Jul 1999 19:45:04 +0000 Subject: [PATCH] (isearch-quote-char): Call unibyte-char-to-multibyte for \200...\240 also. (isearch-printing-char): Use unibyte-char-to-multibyte. --- lisp/isearch.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/isearch.el b/lisp/isearch.el index 59535459849..3fc587befbe 100644 --- a/lisp/isearch.el +++ b/lisp/isearch.el @@ -1200,11 +1200,11 @@ and the meta character is unread so that it applies to editing the string." "Quote special characters for incremental search." (interactive) (let ((char (read-quoted-char (isearch-message t)))) - ;; Assume character codes 0240 - 0377 stand for characters in some + ;; Assume character codes 0200 - 0377 stand for characters in some ;; single-byte character set, and convert them to Emacs ;; characters. (and enable-multibyte-characters - (>= char ?\240) + (>= char ?\200) (<= char ?\377) (setq char (unibyte-char-to-multibyte char))) (isearch-process-search-char char))) @@ -1224,7 +1224,7 @@ Obsolete." (if (and enable-multibyte-characters (>= char ?\200) (<= char ?\377)) - (isearch-process-search-char (+ char nonascii-insert-offset)) + (isearch-process-search-char (unibyte-char-to-multibyte char)) (if current-input-method (isearch-process-search-multibyte-characters char) (isearch-process-search-char char))))) -- 2.39.2