Improve cape--table-drop-properties

1 files changed, 1 insertions, 1 deletions

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)))