From 2238ba4844a25e70e1dc42cc1e1a2905cb6b778e Mon Sep 17 00:00:00 2001 From: Daniel Mendler Date: Thu, 22 Jan 2026 10:07:04 +0100 Subject: Simplify cape--table-drop-properties --- cape.el | 9 ++------- 1 file changed, 2 insertions(+), 7 deletions(-) diff --git a/cape.el b/cape.el index 809e36d..09899e5 100644 --- a/cape.el +++ b/cape.el @@ -251,13 +251,8 @@ PROPERTIES is a properties plist. The corresponding keys are removed from the completion metadata alist. This function is used by `cape-wrap-properties'." (if-let* (((functionp table)) - (keys (cl-loop for (x . y) in - '((:category . category) - (:display-sort-function . display-sort-function) - (:cycle-sort-function . cycle-sort-function) - (:annotation-function . annotation-function) - (:affixation-function . affixation-function)) - if (plist-member properties x) collect y))) + (keys (cl-loop for (k _) on properties by #'cddr + collect (intern (substring (symbol-name k) 1))))) (lambda (str pred action) (if (eq action 'metadata) (let ((md (copy-sequence (funcall table str pred action)))) -- cgit v1.0