[elpa] externals/consult 22d759c133: Do not use xref--group-name-for-display (Fix #1015)

[ELPA Syncer]

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

    Do not use xref--group-name-for-display (Fix #1015)
---
 consult-xref.el | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

diff --git a/consult-xref.el b/consult-xref.el
index 7188e37270..7d502e44a6 100644
--- a/consult-xref.el
+++ b/consult-xref.el
@@ -27,6 +27,7 @@
 
 (require 'consult)
 (require 'xref)
+(eval-when-compile (require 'subr-x))
 
 (defvar consult-xref--history nil)
 
@@ -40,11 +41,7 @@ The fetch is stored globally such that it can be accessed by
   (let ((root (consult--project-root)))
     (mapcar (lambda (xref)
               (let* ((loc (xref-item-location xref))
-                     (group (if (fboundp 'xref--group-name-for-display)
-                                ;; This function is available in xref 1.3.2
-                                (xref--group-name-for-display
-                                 (xref-location-group loc) root)
-                              (xref-location-group loc)))
+                     (group (string-remove-prefix root (xref-location-group 
loc)))
                      (cand (consult--format-file-line-match
                             group
                             (or (xref-location-line loc) 0)