From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 28 Aug 1997 00:33:03 +0000 (+0000)
Subject: (isearch-printing-char): Handle nonascii-insert-offset.
X-Git-Tag: emacs-20.1~361
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=af56433dc515b465aa87d229252103cf3fdd3a41;p=emacs.git

(isearch-printing-char): Handle nonascii-insert-offset.
---

diff --git a/lisp/isearch.el b/lisp/isearch.el
index 2a57d505fc0..c0196113bcd 100644
--- a/lisp/isearch.el
+++ b/lisp/isearch.el
@@ -1178,9 +1178,14 @@ Obsolete."
 (defun isearch-printing-char ()
   "Add this ordinary printing character to the search string and search."
   (interactive)
-  (if current-input-method
-      (isearch-process-search-multibyte-characters (isearch-last-command-char))
-    (isearch-process-search-char (isearch-last-command-char))))
+  (let ((char (isearch-last-command-char)))
+    (if (and enable-multibyte-characters
+	     (>= char ?\200)
+	     (<= char ?\377))
+	(isearch-process-search-char (+ char nonascii-insert-offset))
+      (if current-input-method
+	  (isearch-process-search-multibyte-characters char)
+	(isearch-process-search-char char)))))
 
 (defun isearch-whitespace-chars ()
   "Match all whitespace chars, if in regexp mode.