summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--cape.el6
1 files changed, 5 insertions, 1 deletions
diff --git a/cape.el b/cape.el
index e4c5975..f020ca7 100644
--- a/cape.el
+++ b/cape.el
@@ -892,8 +892,12 @@ If INTERACTIVE is nil the function acts like a capf."
(error "Cape company backend async timeout"))
(sit-for 0.1 'noredisplay)))
;; Remove cape--done introduced by future callback
+ ;; XXX NOTE: For some reason Emacs sometimes converts
+ ;; cape--done to (t . cape--done).
(setq unread-command-events
- (delq 'cape--done unread-command-events)))
+ (delq 'cape--done
+ (delete '(t . cape--done)
+ unread-command-events))))
res))
;; Plain old synchronous return value.
(res res))))