[elpa] externals/cape 67c48f1c36: Fix #45

[ELPA Syncer]

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))