[elpa] externals/consult c365b64877 3/3: consult-compile: Forgot to commit a fix

[ELPA Syncer]

branch: externals/consult
commit c365b64877be69e22224a6073ac9ece34b27e270
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    consult-compile: Forgot to commit a fix
---
 consult-compile.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/consult-compile.el b/consult-compile.el
index 54e8626e44..3abf9ccaee 100644
--- a/consult-compile.el
+++ b/consult-compile.el
@@ -66,8 +66,9 @@
 
 (defun consult-compile--lookup (marker)
   "Lookup error position given error MARKER."
-  (when-let ((buffer (marker-buffer marker))
+  (when-let ((buffer (and marker (marker-buffer marker)))
              (msg (with-current-buffer buffer (get-text-property marker 
'compilation-message)))
+             (loc (compilation--message->loc msg))
              (default-directory (buffer-local-value 'default-directory 
buffer)))
     (consult--position-marker
      ;; taken from compile.el