[elpa] externals/denote 09548075cf 1/2: Tweak formatting of denote--retrieve-files-in-xrefs

[ELPA Syncer]

branch: externals/denote
commit 09548075cff19feb8ee2ace29a66128cdc5540a1
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: Protesilaos Stavrou <info@protesilaos.com>

    Tweak formatting of denote--retrieve-files-in-xrefs
---
 denote.el | 20 +++++++++++++++-----
 1 file changed, 15 insertions(+), 5 deletions(-)

diff --git a/denote.el b/denote.el
index 1d986b0231..df952c3253 100644
--- a/denote.el
+++ b/denote.el
@@ -1385,14 +1385,24 @@ Run `denote-desluggify' on title if the extraction is 
sucessful."
       title
     (denote-retrieve-filename-title file)))
 
+(defun denote--retrieve-location-in-xrefs (identifier)
+  "Return list of xrefs for IDENTIFIER with their respective location.
+Limit the search to text files, per `denote-directory-text-only-files'."
+  (mapcar #'xref-match-item-location
+          (xref-matches-in-files identifier
+                                 (denote-directory-text-only-files))))
+
+(defun denote--retrieve-group-in-xrefs (identifier)
+  "Access location of xrefs for IDENTIFIER and group them per file.
+See `denote--retrieve-locations-in-xrefs'."
+  (mapcar #'xref-location-group
+          (denote--retrieve-location-in-xrefs identifier)))
+
 (defun denote--retrieve-files-in-xrefs (identifier)
-  "Return sorted, deduplicated file names from IDENTIFIER."
+  "Return sorted, deduplicated file names with IDENTIFIER in their contents."
   (sort
    (delete-dups
-    (mapcar #'xref-location-group
-            (mapcar #'xref-match-item-location
-                    (xref-matches-in-files identifier
-                                           
(denote-directory-text-only-files)))))
+    (denote--retrieve-group-in-xrefs identifier))
    #'string-lessp))
 
 ;;;; New note