[elpa] externals/embark a52e795659 5/7: Update embark-consult for changes to embark-collect

[ELPA Syncer]

branch: externals/embark
commit a52e7956593fba2f4d590c3c328cee3b6d89238c
Author: Omar Antolín <omar.antolin@gmail.com>
Commit: Omar Antolín <omar.antolin@gmail.com>

    Update embark-consult for changes to embark-collect
---
 embark-consult.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/embark-consult.el b/embark-consult.el
index 5a35677fc4..7d41bdb397 100644
--- a/embark-consult.el
+++ b/embark-consult.el
@@ -75,8 +75,6 @@
 (defun embark-consult--collect-candidate ()
   "Return candidate at point in collect buffer."
   (and (derived-mode-p 'embark-collect-mode)
-       (active-minibuffer-window)
-       (eq (window-buffer (active-minibuffer-window)) embark-collect-from)
        (get-text-property (point) 'embark--candidate)))
 
 (add-hook 'consult--completion-candidate-hook 
#'embark-consult--collect-candidate)
@@ -162,7 +160,9 @@ The elements of LINES are assumed to be values of category 
`consult-line'."
   "Upgrade consult-location cheap markers to real markers.
 This function is meant to be added to `embark-collect-mode-hook'."
   (when (eq embark--type 'consult-location)
-    (mapc #'consult--get-location embark-collect-candidates)))
+    (let ((fn (if (consp (car embark-collect--candidates)) #'car #'identity)))
+      (mapc (lambda (x) (consult--get-location (funcall fn x)))
+            embark-collect--candidates))))
 
 (setf (alist-get 'consult-location embark-collect-initial-view-alist)
       'list)