Mercurial > emacs
changeset 24788:1d21edd48d82
(isearch-quote-char): Don't assume character codes
0200 - 0237 stand for characters in some single-byte character
charset.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Fri, 28 May 1999 00:16:09 +0000 |
| parents | 9186fd78775b |
| children | cef7201132c9 |
| files | lisp/isearch.el |
| diffstat | 1 files changed, 5 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/isearch.el Thu May 27 18:45:59 1999 +0000 +++ b/lisp/isearch.el Fri May 28 00:16:09 1999 +0000 @@ -1189,13 +1189,13 @@ "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 ()