From: Kenichi Handa Date: Tue, 24 Oct 2000 01:34:25 +0000 (+0000) Subject: (isearch-with-input-method): Call input-method-function with the first X-Git-Tag: emacs-pretest-21.0.90~645 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8aa87e0698aafbfe7d4c933bb7f7499247748a85;p=emacs.git (isearch-with-input-method): Call input-method-function with the first event in unread-command-events. --- 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 @@ (defun isearch-with-input-method () (interactive) - (let ((events (funcall input-method-function nil))) + (let ((key (car unread-command-events)) + events) + (setq unread-command-events (cdr unread-command-events) + events (funcall input-method-function key)) ;; EVENTS is a list of events the input method has generated. It ;; contains a character event and/or the special event ;; `compose-last-chars'. We extract only character events and