diff options
author | Richard M. Stallman <rms@gnu.org> | 1997-08-28 00:33:03 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1997-08-28 00:33:03 +0000 |
commit | af56433dc515b465aa87d229252103cf3fdd3a41 (patch) | |
tree | 32a1fd8adcce0d9201db3d4a5a7441bb2ce644c8 /lisp/isearch.el | |
parent | 02cf5781937e7b6af753457371e6036c7416dc33 (diff) | |
download | emacs-af56433dc515b465aa87d229252103cf3fdd3a41.tar.gz |
(isearch-printing-char): Handle nonascii-insert-offset.
Diffstat (limited to 'lisp/isearch.el')
-rw-r--r-- | lisp/isearch.el | 11 |
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. |