[elpa] externals/denote 99d5eda377 3/8: Add denote-make-backlinks-buffer

[ELPA Syncer]

branch: externals/denote
commit 99d5eda37749cd5d7bf0c9f914a73a359efa37b4
Author: Jean-Philippe Gagné Guay <jeanphilippe...@gmail.com>
Commit: Jean-Philippe Gagné Guay <jeanphilippe...@gmail.com>

    Add denote-make-backlinks-buffer
---
 denote.el | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/denote.el b/denote.el
index ae52ef47cc..37b1def175 100644
--- a/denote.el
+++ b/denote.el
@@ -5708,6 +5708,16 @@ alist, such as `denote-backlinks-display-buffer-action'."
                       (denote--display-buffer-from-xref-alist xref-alist 
buffer-name display-buffer-action)))))
     (display-buffer buffer-name display-buffer-action)))
 
+(defun denote-make-backlinks-buffer (identifier buffer-name 
display-buffer-action)
+  "Create links' buffer called BUFFER-NAME for IDENTIFIER.
+
+Optional DISPLAY-BUFFER-ACTION is a `display-buffer' action and
+concomitant alist, such as `denote-backlinks-display-buffer-action'."
+  (let* ((xref-alist (denote-retrieve-xref-alist-for-backlinks identifier)))
+    (unless xref-alist
+      (error "No matches for identifier `%s'" identifier))
+    (denote--display-buffer-from-xref-alist xref-alist buffer-name 
display-buffer-action)))
+
 ;; NOTE 2025-03-24: The `&rest' is there because we used to have an
 ;; extra SHOW-CONTEXT parameter.  This way we do not break anybody's
 ;; code, even if we slightly modify the behaviour.