branch: externals/consult
commit ce1d6c025cceebecbb5a7a535a733c36b4d6d941
Author: Troy Brown <brow...@troybrown.dev>
Commit: Daniel Mendler <m...@daniel-mendler.de>
consult-compile--error-candidates: Ignore directory messages
Fixes #1225
---
consult-compile.el | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/consult-compile.el b/consult-compile.el
index 417b1880c2..fba09d4e99 100644
--- a/consult-compile.el
+++ b/consult-compile.el
@@ -52,7 +52,8 @@
(pos (point-min)))
(save-excursion
(while (setq pos (compilation-next-single-property-change pos
'compilation-message))
- (when-let (msg (get-text-property pos 'compilation-message))
+ (when-let* ((msg (get-text-property pos 'compilation-message))
+ ((compilation--message->loc msg)))
(goto-char pos)
(push (propertize
(consult-compile--font-lock (consult--buffer-substring pos
(pos-eol)))
