From 600d55fda067233911597f34dc0bf636be427eee Mon Sep 17 00:00:00 2001
From: Daniel Mendler <mail@daniel-mendler.de>
Date: Thu, 22 Jan 2026 10:09:12 +0100
Subject: Improve cape--table-drop-properties

---
 cape.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/cape.el b/cape.el
index 09899e5..1f84f92 100644
--- a/cape.el
+++ b/cape.el
@@ -255,7 +255,7 @@ from the completion metadata alist.  This function is used by
                            collect (intern (substring (symbol-name k) 1)))))
       (lambda (str pred action)
         (if (eq action 'metadata)
-            (let ((md (copy-sequence (funcall table str pred action))))
+            (when-let* ((md (copy-sequence (funcall table str pred action))))
               (dolist (k keys) (setq md (assq-delete-all k md)))
               md)
           (complete-with-action action table str pred)))
-- 
cgit v1.0