branch: externals/consult
commit 089140e998fdbd5d8f2fa54dc5c288f7e895d83a
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@daniel-mendler.de>
consult-xref: Use proper xref accessors (Fix #435)
---
consult-xref.el | 9 ++++++---
1 file changed, 6 insertions(+), 3 deletions(-)
diff --git a/consult-xref.el b/consult-xref.el
index 02cfaca..2f3d1ad 100644
--- a/consult-xref.el
+++ b/consult-xref.el
@@ -62,9 +62,12 @@
(xref-location-marker loc))
(xref-file-location
(consult--position-marker
- (funcall open (oref loc file))
- (oref loc line)
- (oref loc column)))
+ (funcall open
+ ;; xref-location-group returns the file name
+ (let ((xref-file-name-display 'abs))
+ (xref-location-group loc)))
+ (xref-location-line loc)
+ (xref-file-location-column loc)))
(t (message "No preview for %s" (type-of loc)) nil))
nil)))))))
