branch: externals/cape
commit 600d55fda067233911597f34dc0bf636be427eee
Author: Daniel Mendler <[email protected]>
Commit: Daniel Mendler <[email protected]>
Improve cape--table-drop-properties
---
cape.el | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/cape.el b/cape.el
index 09899e51ef..1f84f92b12 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)))
