diff options
| author | Kenichi Handa | 2000-10-24 01:34:25 +0000 |
|---|---|---|
| committer | Kenichi Handa | 2000-10-24 01:34:25 +0000 |
| commit | 8aa87e0698aafbfe7d4c933bb7f7499247748a85 (patch) | |
| tree | 2d102e92346556b32368a2d073634aa6e34d69e7 | |
| parent | f408aa480f1748982c1abac1bdd4551bed426fd7 (diff) | |
| download | emacs-8aa87e0698aafbfe7d4c933bb7f7499247748a85.tar.gz emacs-8aa87e0698aafbfe7d4c933bb7f7499247748a85.zip | |
(isearch-with-input-method): Call input-method-function with the first
event in unread-command-events.
| -rw-r--r-- | lisp/international/isearch-x.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/international/isearch-x.el b/lisp/international/isearch-x.el index 67090bcac54..bd49321dd5e 100644 --- a/lisp/international/isearch-x.el +++ b/lisp/international/isearch-x.el | |||
| @@ -77,7 +77,10 @@ | |||
| 77 | 77 | ||
| 78 | (defun isearch-with-input-method () | 78 | (defun isearch-with-input-method () |
| 79 | (interactive) | 79 | (interactive) |
| 80 | (let ((events (funcall input-method-function nil))) | 80 | (let ((key (car unread-command-events)) |
| 81 | events) | ||
| 82 | (setq unread-command-events (cdr unread-command-events) | ||
| 83 | events (funcall input-method-function key)) | ||
| 81 | ;; EVENTS is a list of events the input method has generated. It | 84 | ;; EVENTS is a list of events the input method has generated. It |
| 82 | ;; contains a character event and/or the special event | 85 | ;; contains a character event and/or the special event |
| 83 | ;; `compose-last-chars'. We extract only character events and | 86 | ;; `compose-last-chars'. We extract only character events and |