# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 868926183 0
# Node ID 7032bbacd2fa1b7167b8210436fdc5a0180ac1e8
# Parent  4d1cbc8f69f65bab4a958e215526ba2614452f08
(isearch-char-to-string): Use char-to-string.
(isearch-quote-char): Add nonascii-insert-offset.

diff -r 4d1cbc8f69f6 -r 7032bbacd2fa lisp/isearch.el
--- a/lisp/isearch.el	Mon Jul 14 22:54:30 1997 +0000
+++ b/lisp/isearch.el	Tue Jul 15 00:23:03 1997 +0000
@@ -1162,7 +1162,8 @@
 (defun isearch-quote-char ()
   "Quote special characters for incremental search."
   (interactive)
-  (isearch-process-search-char (read-quoted-char (isearch-message t))))
+  (isearch-process-search-char (+ (read-quoted-char (isearch-message t))
+				  nonascii-insert-offset)))
 
 (defun isearch-return-char ()
   "Convert return into newline for incremental search.
@@ -1669,7 +1670,7 @@
 ;; Portability functions to support various Emacs versions.
 
 (defun isearch-char-to-string (c)
-  (make-string 1 c))
+  (char-to-string c))
 
 (defun isearch-text-char-description (c)
   (if (and (integerp c) (or (< c ?\ ) (= c ?\^?)))