]> git.eshelyaron.com Git - emacs.git/commitdiff
(isearch-printing-char): Handle nonascii-insert-offset.
authorRichard M. Stallman <rms@gnu.org>
Thu, 28 Aug 1997 00:33:03 +0000 (00:33 +0000)
committerRichard M. Stallman <rms@gnu.org>
Thu, 28 Aug 1997 00:33:03 +0000 (00:33 +0000)
lisp/isearch.el

index 2a57d505fc0b92a58d45d0fdff6c35fa6f344e2e..c0196113bcdf03b385d35e49e5af6c484e967eb8 100644 (file)
@@ -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.