From: Dmitry Gutov <dmitry@gutov.dev>
Date: Mon, 23 Oct 2023 20:51:08 +0000 (+0300)
Subject: xref-backend-references: Avoid finding duplicates
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=391420d0c0beb699d79a66c26824d5bbefca905b;p=emacs.git

xref-backend-references: Avoid finding duplicates

* lisp/progmodes/xref.el (xref-backend-references):
Cull subdirectories of other elements (bug#66683).
---

diff --git a/lisp/progmodes/xref.el b/lisp/progmodes/xref.el
index fd788ec8f32..81618428bf3 100644
--- a/lisp/progmodes/xref.el
+++ b/lisp/progmodes/xref.el
@@ -281,9 +281,10 @@ current project's main and external roots."
          (xref-references-in-directory identifier dir)
        (message "Searching %s... done" dir)))
    (let ((pr (project-current t)))
-     (cons
-      (xref--project-root pr)
-      (project-external-roots pr)))))
+     (project-combine-directories
+      (cons
+       (xref--project-root pr)
+       (project-external-roots pr))))))
 
 (cl-defgeneric xref-backend-apropos (backend pattern)
   "Find all symbols that match PATTERN string.