branch: externals/embark
commit f2dcfe4d797a3ab66bb603d5cf441ae1172a672d
Author: Omar Antolín Camarena <omar.anto...@gmail.com>
Commit: Omar Antolín Camarena <omar.anto...@gmail.com>
Fix bug in embark-collect-mode candidate collector
Embarrassingly this bug has been present since support was added for
group-function
---
embark.el | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/embark.el b/embark.el
index b08c0c70bd..f36ad30c4d 100644
--- a/embark.el
+++ b/embark.el
@@ -2732,9 +2732,11 @@ This makes `embark-export' work in Embark Collect
buffers."
(save-excursion
(goto-char (point-min))
(let (all)
- (push (cdr (embark-target-collect-candidate)) all)
+ (when-let ((cand (embark-target-collect-candidate)))
+ (push (cdr cand) all))
(while (forward-button 1 nil nil t)
- (push (cdr (embark-target-collect-candidate)) all))
+ (when-let ((cand (embark-target-collect-candidate)))
+ (push (cdr cand) all)))
(nreverse all))))))
(defun embark-completions-buffer-candidates ()
