Mercurial > emacs

changeset 19587:7d59cb04d2d9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(isearch-printing-char): Handle nonascii-insert-offset.
author Richard M. Stallman <rms@gnu.org>
date Thu, 28 Aug 1997 00:33:03 +0000
parents 963726a261c3
children f51f46bef183
files lisp/isearch.el
diffstat 1 files changed, 8 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/isearch.el	Wed Aug 27 23:10:59 1997 +0000
+++ b/lisp/isearch.el	Thu Aug 28 00:33:03 1997 +0000
@@ -1178,9 +1178,14 @@
 (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.