[elpa] externals/denote bbdcc498a2 1/9: Fix 'denote-link-find-backlink'

[ELPA Syncer]

branch: externals/denote
commit bbdcc498a27831d82db4a641c7f6e968dc888c10
Author: Noboru Ota <me@nobiot.com>
Commit: Protesilaos Stavrou <info@protesilaos.com>

    Fix 'denote-link-find-backlink'
    
    Commit fcefc1d broke 'denote-link-find-backlink' as
    'denote--retrieve-process-grep' was refactored to retrieve xrefs-alist.
    This change fixes that.
    
    * denote.el
    
    (denote--retrieve-files-in-xrefs): Revert commit 3b9bc00
    (denote-link-find-backlink): Refactor to work as expected as before
    fcefc1d
---
 denote.el | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/denote.el b/denote.el
index 79e9ddf380..7bce009736 100644
--- a/denote.el
+++ b/denote.el
@@ -1139,6 +1139,13 @@ The xrefs are returned as an alist."
    (lambda (x)
      (xref-location-group (xref-item-location x)))))
 
+(defun denote--retrieve-files-in-xrefs (xrefs-alist)
+  "Return sorted file names sans directory from XREFS.
+Parse `denote--retrieve-xrefs'."
+  (sort
+   (delete-dups (mapcar #'car xrefs-alist))
+   #'string-lessp))
+
 (defun denote--retrieve-process-grep (identifier)
   "Process lines matching IDENTIFIER and return list of xrefs-alist."
   (assoc-delete-all (buffer-file-name)
@@ -2432,7 +2439,8 @@ Like `denote-link-find-file', but select backlink to 
follow."
   (interactive)
   (when-let* ((file (buffer-file-name))
               (id (denote-retrieve-filename-identifier file))
-              (files (denote--retrieve-process-grep id)))
+              (files (denote--retrieve-files-in-xrefs
+                      (denote--retrieve-process-grep id))))
     (find-file
      (denote-get-path-by-id
       (denote-extract-id-from-string