[elpa] externals/cape d70c088631 2/2: cape-wrap-debug: Add debug message for exit function

[ELPA Syncer]

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

    cape-wrap-debug: Add debug message for exit function
---
 cape.el | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/cape.el b/cape.el
index c9540fdbda..4aa51bd3df 100644
--- a/cape.el
+++ b/cape.el
@@ -933,6 +933,12 @@ meaningful debugging output."
         plist-str))
      `(,beg ,end ,(cape--debug-table
                    table name (copy-marker beg) (copy-marker end t))
+       ,@(when-let ((exit (plist-get plist :exit-function)))
+           (list :exit-function
+                 (lambda (cand status)
+                   (cape--debug-message "%s:exit(candidate=%S status=%s)"
+                                        name cand status)
+                   (funcall exit cand status))))
        . ,plist))
     (result
      (cape--debug-message "%s() => %s (No completion)"