diff options
| author | Kenichi Handa | 1999-05-28 00:16:09 +0000 |
|---|---|---|
| committer | Kenichi Handa | 1999-05-28 00:16:09 +0000 |
| commit | c20d35d515b53ed937048b65087c1f6f6b3e9729 (patch) | |
| tree | 8ecfd5505247463ed5506f3531336351e01f625d | |
| parent | d840c7d5f01464f5d482ec71ae6cbd0d1982560d (diff) | |
| download | emacs-c20d35d515b53ed937048b65087c1f6f6b3e9729.tar.gz emacs-c20d35d515b53ed937048b65087c1f6f6b3e9729.zip | |
(isearch-quote-char): Don't assume character codes
0200 - 0237 stand for characters in some single-byte character
charset.
| -rw-r--r-- | lisp/isearch.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/isearch.el b/lisp/isearch.el index aef204c02cc..6164498de10 100644 --- a/lisp/isearch.el +++ b/lisp/isearch.el | |||
| @@ -1189,13 +1189,13 @@ and the meta character is unread so that it applies to editing the string." | |||
| 1189 | "Quote special characters for incremental search." | 1189 | "Quote special characters for incremental search." |
| 1190 | (interactive) | 1190 | (interactive) |
| 1191 | (let ((char (read-quoted-char (isearch-message t)))) | 1191 | (let ((char (read-quoted-char (isearch-message t)))) |
| 1192 | ;; Assume character codes 0200 - 0377 stand for | 1192 | ;; Assume character codes 0240 - 0377 stand for characters in some |
| 1193 | ;; European characters in Latin-1, and convert them | 1193 | ;; single-byte character set, and convert them to Emacs |
| 1194 | ;; to Emacs characters. | 1194 | ;; characters. |
| 1195 | (and enable-multibyte-characters | 1195 | (and enable-multibyte-characters |
| 1196 | (>= char ?\200) | 1196 | (>= char ?\240) |
| 1197 | (<= char ?\377) | 1197 | (<= char ?\377) |
| 1198 | (setq char (+ char nonascii-insert-offset))) | 1198 | (setq char (unibyte-char-to-multibyte char))) |
| 1199 | (isearch-process-search-char char))) | 1199 | (isearch-process-search-char char))) |
| 1200 | 1200 | ||
| 1201 | (defun isearch-return-char () | 1201 | (defun isearch-return-char () |