Commit 8aa87e06 authored by Kenichi Handa's avatar Kenichi Handa
Browse files

(isearch-with-input-method): Call input-method-function with the first

event in unread-command-events.
parent f408aa48
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment