summaryrefslogtreecommitdiff
path: root/lisp/isearch.el
diff options
context:
space:
mode:
authorRichard M. Stallman <rms@gnu.org>1997-08-28 00:33:03 +0000
committerRichard M. Stallman <rms@gnu.org>1997-08-28 00:33:03 +0000
commitaf56433dc515b465aa87d229252103cf3fdd3a41 (patch)
tree32a1fd8adcce0d9201db3d4a5a7441bb2ce644c8 /lisp/isearch.el
parent02cf5781937e7b6af753457371e6036c7416dc33 (diff)
downloademacs-af56433dc515b465aa87d229252103cf3fdd3a41.tar.gz
(isearch-printing-char): Handle nonascii-insert-offset.
Diffstat (limited to 'lisp/isearch.el')
-rw-r--r--lisp/isearch.el11
1 files changed, 8 insertions, 3 deletions
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.