aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/isearch.el11
1 files changed, 9 insertions, 2 deletions
diff --git a/lisp/isearch.el b/lisp/isearch.el
index a0b269678bc..1547e7759b7 100644
--- a/lisp/isearch.el
+++ b/lisp/isearch.el
@@ -1164,8 +1164,15 @@ and the meta character is unread so that it applies to editing the string."
1164(defun isearch-quote-char () 1164(defun isearch-quote-char ()
1165 "Quote special characters for incremental search." 1165 "Quote special characters for incremental search."
1166 (interactive) 1166 (interactive)
1167 (isearch-process-search-char (+ (read-quoted-char (isearch-message t)) 1167 (let ((char (read-quoted-char (isearch-message t))))
1168 nonascii-insert-offset))) 1168 ;; Assume character codes 0200 - 0377 stand for
1169 ;; European characters in Latin-1, and convert them
1170 ;; to Emacs characters.
1171 (and enable-multibyte-characters
1172 (>= char ?\200)
1173 (<= char ?\377)
1174 (setq char (+ char nonascii-insert-offset)))
1175 (isearch-process-search-char char)))
1169 1176
1170(defun isearch-return-char () 1177(defun isearch-return-char ()
1171 "Convert return into newline for incremental search. 1178 "Convert return into newline for incremental search.