cape--company-call: Bind echo-keystrokes=0 around read-event

See #25, cc @galeo

1 files changed, 3 insertions, 1 deletions

diff --git a/cape.el b/cape.el
index 17e3e11..e17888b 100644
--- a/cape.el
+++ b/cape.el
@@ -908,7 +908,9 @@ If INTERACTIVE is nil the function acts like a capf."
                                 (push 'cape--done unread-command-events)
                                 (setq res arg))))
                    (when (eq res 'cape--waiting)
-                     (let ((ev (let (input-method-function) (read-event nil t))))
+                     (let ((ev (let ((input-method-function nil)
+                                     (echo-keystrokes 0))
+                                 (read-event nil t))))
                        (unless (eq ev 'cape--done)
                          (push (cons t ev) unread-command-events)
                          (setq res 'cape--cancelled)