Mercurial > emacs
changeset 24921:036b2fb4944f
(isearch-quote-char): Call unibyte-char-to-multibyte for \200...\240 also.
(isearch-printing-char): Use unibyte-char-to-multibyte.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 03 Jul 1999 19:45:04 +0000 |
| parents | d95c8bcfe8ae |
| children | ebff04ce5d74 |
| files | lisp/isearch.el |
| diffstat | 1 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/isearch.el Fri Jul 02 12:57:10 1999 +0000 +++ b/lisp/isearch.el Sat Jul 03 19:45:04 1999 +0000 @@ -1200,11 +1200,11 @@ "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 @@ (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)))))