Mercurial > emacs

changeset 32798:6d04a7aba075

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(isearch-with-input-method): Call input-method-function with the first event in unread-command-events.
author Kenichi Handa <handa@m17n.org>
date Tue, 24 Oct 2000 01:34:25 +0000
parents da808368cd45
children 8c6128d7324f
files lisp/international/isearch-x.el
diffstat 1 files changed, 4 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/international/isearch-x.el	Tue Oct 24 01:34:06 2000 +0000
+++ b/lisp/international/isearch-x.el	Tue Oct 24 01:34:25 2000 +0000
@@ -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