From dde834126c2abcc0e518330ab15f17caffe6e824 Mon Sep 17 00:00:00 2001 From: Daniel Mendler Date: Wed, 9 Feb 2022 17:54:42 +0100 Subject: Do not discard input event --- cape.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/cape.el b/cape.el index d77051a..13c1e5d 100644 --- a/cape.el +++ b/cape.el @@ -884,10 +884,11 @@ If INTERACTIVE is nil the function acts like a capf." (when (eq res 'cape--waiting) (push 'cape--done unread-command-events)) (setq res arg))) - (let ((input-method-function nil)) - (read-event nil t)) - (when (eq res 'cape--waiting) - (throw toi t))) + (let ((ev (let (input-method-function) (read-event nil t)))) + (when (eq res 'cape--waiting) + (unless (eq ev 'cape--done) + (push (cons t ev) unread-command-events)) + (throw toi t)))) (setq unread-command-events (delq 'cape--done unread-command-events))) (funcall fetch (lambda (arg) (setq res arg))) -- cgit v1.0