summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--cape.el2
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)))