branch: externals/cape
commit 9bdaebb9e66ab2ce6af8de1e091fd30d510f1998
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@daniel-mendler.de>
Minor cleanup
---
cape.el | 14 +++++++-------
1 file changed, 7 insertions(+), 7 deletions(-)
diff --git a/cape.el b/cape.el
index 29e65f1775..85631942bb 100644
--- a/cape.el
+++ b/cape.el
@@ -561,13 +561,13 @@ If INTERACTIVE is nil the function acts like a Capf."
(_
(completion--some
(pcase-lambda (`(,table . ,plist))
- (let* ((pr (plist-get plist :predicate))
- (pred (if pr
- (if pred (lambda (x) ; satisfy both
- (and (funcall pred x)
(funcall pr x)))
- pr)
- pred)))
- (complete-with-action action table str pred)))
+ (complete-with-action
+ action table str
+ (if-let (pr (plist-get plist :predicate))
+ (if pred
+ (lambda (x) (and (funcall pred x) (funcall pr
x)))
+ pr)
+ pred)))
tables))))
:exclusive 'no
:company-prefix-length prefix-len
