diff options
| author | Richard M. Stallman | 1997-08-28 00:33:03 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1997-08-28 00:33:03 +0000 |
| commit | af56433dc515b465aa87d229252103cf3fdd3a41 (patch) | |
| tree | 32a1fd8adcce0d9201db3d4a5a7441bb2ce644c8 /lisp | |
| parent | 02cf5781937e7b6af753457371e6036c7416dc33 (diff) | |
| download | emacs-af56433dc515b465aa87d229252103cf3fdd3a41.tar.gz emacs-af56433dc515b465aa87d229252103cf3fdd3a41.zip | |
(isearch-printing-char): Handle nonascii-insert-offset.
Diffstat (limited to 'lisp')
| -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." | |||
| 1178 | (defun isearch-printing-char () | 1178 | (defun isearch-printing-char () |
| 1179 | "Add this ordinary printing character to the search string and search." | 1179 | "Add this ordinary printing character to the search string and search." |
| 1180 | (interactive) | 1180 | (interactive) |
| 1181 | (if current-input-method | 1181 | (let ((char (isearch-last-command-char))) |
| 1182 | (isearch-process-search-multibyte-characters (isearch-last-command-char)) | 1182 | (if (and enable-multibyte-characters |
| 1183 | (isearch-process-search-char (isearch-last-command-char)))) | 1183 | (>= char ?\200) |
| 1184 | (<= char ?\377)) | ||
| 1185 | (isearch-process-search-char (+ char nonascii-insert-offset)) | ||
| 1186 | (if current-input-method | ||
| 1187 | (isearch-process-search-multibyte-characters char) | ||
| 1188 | (isearch-process-search-char char))))) | ||
| 1184 | 1189 | ||
| 1185 | (defun isearch-whitespace-chars () | 1190 | (defun isearch-whitespace-chars () |
| 1186 | "Match all whitespace chars, if in regexp mode. | 1191 | "Match all whitespace chars, if in regexp mode. |