From 8aa87e0698aafbfe7d4c933bb7f7499247748a85 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Tue, 24 Oct 2000 01:34:25 +0000 Subject: [PATCH] (isearch-with-input-method): Call input-method-function with the first event in unread-command-events. --- lisp/international/isearch-x.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) 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 -- 2.39.2