[elpa] externals/consult 089140e: consult-xref: Use proper xref accessors (Fix #435)

[ELPA Syncer]

branch: externals/consult
commit 089140e998fdbd5d8f2fa54dc5c288f7e895d83a
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@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)))))))