# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 927850569 0
# Node ID 1d21edd48d828f20d3f37637a642c04f63de660f
# Parent  9186fd78775bdf8be9ebc0b400a0ca297c3fb6b5
(isearch-quote-char): Don't assume character codes
0200 - 0237 stand for characters in some single-byte character
charset.

diff -r 9186fd78775b -r 1d21edd48d82 lisp/isearch.el
--- 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 ()