[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/cape 087e9818b4 6/8: Improve cape-wrap-debug
From: |
ELPA Syncer |
Subject: |
[elpa] externals/cape 087e9818b4 6/8: Improve cape-wrap-debug |
Date: |
Fri, 18 Aug 2023 15:57:32 -0400 (EDT) |
branch: externals/cape
commit 087e9818b40385bace40fe596055673f6a42ee18
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>
Improve cape-wrap-debug
---
cape.el | 21 ++++++++++-----------
1 file changed, 10 insertions(+), 11 deletions(-)
diff --git a/cape.el b/cape.el
index 535891d210..211f8bec75 100644
--- a/cape.el
+++ b/cape.el
@@ -908,24 +908,23 @@ meaningful debugging output."
(pcase (funcall capf)
(`(,beg ,end ,table . ,plist)
(let* (completion-ignore-case completion-regexp-list
- (limit cape--debug-length)
- (cands (all-completions
- "" table
- (lambda (&rest _)
- (>= (cl-decf limit) 0)))))
+ (limit cape--debug-length)
+ (pred (plist-get plist :predicate))
+ (cands (all-completions
+ "" table
+ (lambda (&rest args)
+ (and (or (not pred) (apply pred args)) (>= (cl-decf
limit) 0))))))
(message
"%s() => input=%s:%s:%S table=(%s%s)%s"
name (+ beg 0) (+ end 0) (buffer-substring-no-properties beg end)
(string-join (mapcar #'prin1-to-string cands) " ")
(and (< limit 0) " ...")
(if plist (format " plist=%s" (cape--debug-print plist t)) "")))
- `(,beg ,end
- ,(cape--debug-table table name
- (copy-marker beg) (copy-marker end t))
- . ,plist))
+ `(,beg ,end ,(cape--debug-table
+ table name (copy-marker beg) (copy-marker end t))
+ . ,plist))
(result
- (message "%s() => %s (No completion)"
- name (cape--debug-print result)))))
+ (message "%s() => %s (No completion)" name (cape--debug-print result)))))
;;;###autoload
(defun cape-wrap-buster (capf &optional valid)
- [elpa] externals/cape updated (758b45d133 -> 5914a87844), ELPA Syncer, 2023/08/18
- [elpa] externals/cape f5364cd145 1/8: Add cape-wrap-debug and cape-capf-debug, ELPA Syncer, 2023/08/18
- [elpa] externals/cape ebac3e2eab 2/8: Add cape--debug-length, ELPA Syncer, 2023/08/18
- [elpa] externals/cape be4379ba2c 4/8: cape-wrap-debug: Always print the current input, ELPA Syncer, 2023/08/18
- [elpa] externals/cape 545f6d9023 3/8: cape-wrap-debug: Minor cleanup, ELPA Syncer, 2023/08/18
- [elpa] externals/cape 087e9818b4 6/8: Improve cape-wrap-debug,
ELPA Syncer <=
- [elpa] externals/cape 5914a87844 8/8: cape-wrap-debug: Simplify, ELPA Syncer, 2023/08/18
- [elpa] externals/cape 9bba4a80e2 5/8: cape-wrap-debug: Add optional NAME argument, ELPA Syncer, 2023/08/18
- [elpa] externals/cape 8a68ff3dc4 7/8: Improve cape-wrap-debug, ELPA Syncer, 2023/08/18