[elpa] externals/cape cf31199bed: Fix exit function of cape-super-capf

[ELPA Syncer]

branch: externals/cape
commit cf31199bed3f3b542cb4bc5ca52e372b5e3ac6e3
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    Fix exit function of cape-super-capf
    
    See minad/tempel#20
---
 cape.el | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/cape.el b/cape.el
index 515fd8604f..9ddcc179e1 100644
--- a/cape.el
+++ b/cape.el
@@ -805,9 +805,9 @@ If INTERACTIVE is nil the function acts like a capf."
                    (cache-ht (make-hash-table :test #'equal))
                    (extra-fun
                     (lambda (prop)
-                      (lambda (x)
-                        (when-let (fun (plist-get (gethash x cache-ht) prop))
-                          (funcall fun x)))))
+                      (lambda (cand &rest args)
+                        (when-let (fun (plist-get (gethash cand cache-ht) 
prop))
+                          (apply fun cand args)))))
                    (tables nil)
                    (prefix-len nil))
         (cl-loop for (beg2 end2 . rest) in results do
@@ -864,7 +864,7 @@ If INTERACTIVE is nil the function acts like a capf."
               :company-deprecated (funcall extra-fun :company-deprecated)
               :company-kind (funcall extra-fun :company-kind)
               :annotation-function (funcall extra-fun :annotation-function)
-              :exit-function (lambda (x _status) (funcall (funcall extra-fun 
:exit-function) x)))))))
+              :exit-function (lambda (x s) (funcall (funcall extra-fun 
:exit-function) x s)))))))
 
 (defun cape--company-call (&rest app)
   "Apply APP and handle future return values."