(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 67090bcac543ab156ce5a8888866f32b4f96126d..bd49321dd5ee19022fe50cad9a7f39eaabaf78aa 100644 (file)
--- 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