aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/isearch.el6
1 files 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."
1200 "Quote special characters for incremental search." 1200 "Quote special characters for incremental search."
1201 (interactive) 1201 (interactive)
1202 (let ((char (read-quoted-char (isearch-message t)))) 1202 (let ((char (read-quoted-char (isearch-message t))))
1203 ;; Assume character codes 0240 - 0377 stand for characters in some 1203 ;; Assume character codes 0200 - 0377 stand for characters in some
1204 ;; single-byte character set, and convert them to Emacs 1204 ;; single-byte character set, and convert them to Emacs
1205 ;; characters. 1205 ;; characters.
1206 (and enable-multibyte-characters 1206 (and enable-multibyte-characters
1207 (>= char ?\240) 1207 (>= char ?\200)
1208 (<= char ?\377) 1208 (<= char ?\377)
1209 (setq char (unibyte-char-to-multibyte char))) 1209 (setq char (unibyte-char-to-multibyte char)))
1210 (isearch-process-search-char char))) 1210 (isearch-process-search-char char)))
@@ -1224,7 +1224,7 @@ Obsolete."
1224 (if (and enable-multibyte-characters 1224 (if (and enable-multibyte-characters
1225 (>= char ?\200) 1225 (>= char ?\200)
1226 (<= char ?\377)) 1226 (<= char ?\377))
1227 (isearch-process-search-char (+ char nonascii-insert-offset)) 1227 (isearch-process-search-char (unibyte-char-to-multibyte char))
1228 (if current-input-method 1228 (if current-input-method
1229 (isearch-process-search-multibyte-characters char) 1229 (isearch-process-search-multibyte-characters char)
1230 (isearch-process-search-char char))))) 1230 (isearch-process-search-char char)))))