branch: externals/cape
commit df831c35aa0eb73d238ef8297b9273b0e7b69b80
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@daniel-mendler.de>
cape-wrap-debug: Keep track of completion table id
---
cape.el | 6 +++++-
1 file changed, 5 insertions(+), 1 deletion(-)
diff --git a/cape.el b/cape.el
index 4aa51bd3df..94fd91ec55 100644
--- a/cape.el
+++ b/cape.el
@@ -206,6 +206,9 @@ BODY is the wrapping expression."
(defvar cape--debug-length 5
"Length of printed lists in `cape--debug-print'.")
+(defvar cape--debug-id 0
+ "Completion table identifier.")
+
(defun cape--debug-message (&rest msg)
"Print debug MSG."
(let ((inhibit-message t))
@@ -910,6 +913,7 @@ If CAPF is an anonymous lambda, pass the Capf NAME
explicitly for
meaningful debugging output."
(unless name
(setq name (if (symbolp capf) capf "capf")))
+ (setq name (format "%s@%s" name (cl-incf cape--debug-id)))
(pcase (funcall capf)
(`(,beg ,end ,table . ,plist)
(let* (completion-ignore-case completion-regexp-list
@@ -927,7 +931,7 @@ meaningful debugging output."
(cape--debug-print (cadr plist-elt)))
plist-elt (cddr plist-elt)))
(cape--debug-message
- "%s() => input=%s:%s:%S table=%s%s"
+ "%s => input=%s:%s:%S table=%s%s"
name (+ beg 0) (+ end 0) (buffer-substring-no-properties beg end)
(cape--debug-print cands)
plist-str))
