From 45fe322c993aa08cac55a8bcfac3ccc3518ad24d Mon Sep 17 00:00:00 2001
From: Daniel Mendler <mail@daniel-mendler.de>
Date: Sat, 15 Jan 2022 15:32:05 +0100
Subject: cape-company-to-capf: Remove (t . cape--done) from
 unread-command-events (Fix #23)

These cape--done events are converted for some unknown reason.
---
 cape.el | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

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))))
-- 
cgit v1.0