diff options
| -rw-r--r-- | lisp/isearch.el | 11 |
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. |