diff options
| author | Richard M. Stallman <rms@gnu.org> | 1999-07-03 19:45:04 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1999-07-03 19:45:04 +0000 |
| commit | 3c75023fda350b03a95c982e4e42b4233111c8a4 (patch) | |
| tree | fa50ba97af03e671491d34d389cc6534d5014cfd | |
| parent | 0fa248bcc0cac1519c0ec75a43e3ba8a2b8f09e6 (diff) | |
| download | emacs-3c75023fda350b03a95c982e4e42b4233111c8a4.tar.gz | |
(isearch-quote-char): Call unibyte-char-to-multibyte for \200...\240 also.
(isearch-printing-char): Use unibyte-char-to-multibyte.
| -rw-r--r-- | lisp/isearch.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/isearch.el b/lisp/isearch.el index 59535459849..3fc587befbe 100644 --- a/lisp/isearch.el +++ b/lisp/isearch.el @@ -1200,11 +1200,11 @@ 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 0240 - 0377 stand for characters in some + ;; Assume character codes 0200 - 0377 stand for characters in some ;; single-byte character set, and convert them to Emacs ;; characters. (and enable-multibyte-characters - (>= char ?\240) + (>= char ?\200) (<= char ?\377) (setq char (unibyte-char-to-multibyte char))) (isearch-process-search-char char))) @@ -1224,7 +1224,7 @@ Obsolete." (if (and enable-multibyte-characters (>= char ?\200) (<= char ?\377)) - (isearch-process-search-char (+ char nonascii-insert-offset)) + (isearch-process-search-char (unibyte-char-to-multibyte char)) (if current-input-method (isearch-process-search-multibyte-characters char) (isearch-process-search-char char))))) |