[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/cape 67c48f1c36: Fix #45
From: |
ELPA Syncer |
Subject: |
[elpa] externals/cape 67c48f1c36: Fix #45 |
Date: |
Tue, 7 Jun 2022 12:57:19 -0400 (EDT) |
branch: externals/cape
commit 67c48f1c3609f1426f02c5d8b81e23b1e8b89659
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>
Fix #45
---
cape.el | 7 ++++---
1 file changed, 4 insertions(+), 3 deletions(-)
diff --git a/cape.el b/cape.el
index 94ebd2680a..c54e5def15 100644
--- a/cape.el
+++ b/cape.el
@@ -564,15 +564,16 @@ If INTERACTIVE is nil the function acts like a Capf."
(cands (funcall sort (all-completions
str table pr))))
(cl-loop for cell on cands
for cand = (car cell) do
- (if (and (eq (gethash cand ht t)
t)
- (or (not pred) (funcall
pred cand)))
+ (if (eq (gethash cand ht t) t)
(puthash cand plist ht)
(setcar cell nil)))
(setq candidates (nconc candidates
cands))))
(setq cache-filter filter
cache-candidates (delq nil candidates)
cache-ht ht))))
- (copy-sequence cache-candidates))
+ (if pred
+ (cl-loop for x in cache-candidates if (funcall pred x)
collect x)
+ (copy-sequence cache-candidates)))
(_
(completion--some
(pcase-lambda (`(,table . ,plist))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals/cape 67c48f1c36: Fix #45,
ELPA Syncer <=