diff options
author | Kenichi Handa <handa@m17n.org> | 1999-05-28 00:16:09 +0000 |
---|---|---|
committer | Kenichi Handa <handa@m17n.org> | 1999-05-28 00:16:09 +0000 |
commit | e37da9570851584df3c69db6ae0df84ad31261a0 (patch) | |
tree | d5d728208990b69f671b2d2c14952f6058591316 /lisp | |
parent | de676b856408f124e578a03447002c1947961f15 (diff) | |
download | emacs-e37da9570851584df3c69db6ae0df84ad31261a0.tar.gz |
(isearch-quote-char): Don't assume character codes
0200 - 0237 stand for characters in some single-byte character
charset.
Diffstat (limited to 'lisp')
-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." "Quote special characters for incremental search." (interactive) (let ((char (read-quoted-char (isearch-message t)))) - ;; Assume character codes 0200 - 0377 stand for - ;; European characters in Latin-1, and convert them - ;; to Emacs characters. + ;; Assume character codes 0240 - 0377 stand for characters in some + ;; single-byte character set, and convert them to Emacs + ;; characters. (and enable-multibyte-characters - (>= char ?\200) + (>= char ?\240) (<= char ?\377) - (setq char (+ char nonascii-insert-offset))) + (setq char (unibyte-char-to-multibyte char))) (isearch-process-search-char char))) (defun isearch-return-char () |