[elpa] externals/cape 9bdaebb9e6 1/2: Minor cleanup

[ELPA Syncer]

branch: externals/cape
commit 9bdaebb9e66ab2ce6af8de1e091fd30d510f1998
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@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