[elpa] externals/embark 3d2570eb69 1/2: Fix #565

[ELPA Syncer]

branch: externals/embark
commit 3d2570eb69cc2aabee8e338de70579959340e8d6
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    Fix #565
---
 embark-consult.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/embark-consult.el b/embark-consult.el
index 8bc3c5f72e..d5603024a6 100644
--- a/embark-consult.el
+++ b/embark-consult.el
@@ -145,8 +145,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 (lambda (entry) (consult--get-location (car entry)))
-          tabulated-list-entries)))
+    (dolist (entry tabulated-list-entries)
+      (when (car entry)
+        (consult--get-location (car entry))))))
 
 (setf (alist-get 'consult-location embark-exporters-alist)
       #'embark-consult-export-occur)