[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/cape 45fe322c99: cape-company-to-capf: Remove (t . cape
From: |
ELPA Syncer |
Subject: |
[elpa] externals/cape 45fe322c99: cape-company-to-capf: Remove (t . cape--done) from unread-command-events (Fix #23) |
Date: |
Sat, 15 Jan 2022 09:57:17 -0500 (EST) |
branch: externals/cape
commit 45fe322c993aa08cac55a8bcfac3ccc3518ad24d
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>
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 e4c597584f..f020ca712f 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))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals/cape 45fe322c99: cape-company-to-capf: Remove (t . cape--done) from unread-command-events (Fix #23),
ELPA Syncer <=