[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/denote 0511307fa8 7/8: Make sure denote-link--prepare-b
From: |
ELPA Syncer |
Subject: |
[elpa] externals/denote 0511307fa8 7/8: Make sure denote-link--prepare-backlinks works without BUFFER argument |
Date: |
Thu, 25 Jul 2024 03:58:09 -0400 (EDT) |
branch: externals/denote
commit 0511307fa8070022e95703dbaf91cf132828cd28
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: Protesilaos Stavrou <info@protesilaos.com>
Make sure denote-link--prepare-backlinks works without BUFFER argument
---
denote.el | 7 ++++---
1 file changed, 4 insertions(+), 3 deletions(-)
diff --git a/denote.el b/denote.el
index 933c195a8f..a655329a82 100644
--- a/denote.el
+++ b/denote.el
@@ -4347,6 +4347,7 @@ Optional DISPLAY-BUFFER-ACTION is a `display-buffer'
action and
concomitant alist, such as `denote-backlinks-display-buffer-action'."
(let* ((inhibit-read-only t)
(file (buffer-file-name))
+ (backlinks-buffer (or buffer-name (format "Backlinks for '%s'"
query)))
;; We retrieve results in absolute form and change the
;; absolute path to a relative path a few lines below. We
;; could add a suitable function and the results would be
@@ -4364,13 +4365,13 @@ concomitant alist, such as
`denote-backlinks-display-buffer-action'."
(mapc (lambda (x)
(setf (car x) (denote-get-file-name-relative-to-denote-directory
(car x))))
xref-alist)
- (with-current-buffer (get-buffer-create buffer-name)
+ (with-current-buffer (get-buffer-create backlinks-buffer)
(setq-local default-directory dir)
(erase-buffer)
(setq overlay-arrow-position nil)
(denote-backlinks-mode)
(goto-char (point-min))
- (if denote-backlinks-show-context
+ (if (or show-context denote-backlinks-show-context)
(xref--insert-xrefs xref-alist)
(mapc (lambda (x)
(insert (car x))
@@ -4382,7 +4383,7 @@ concomitant alist, such as
`denote-backlinks-display-buffer-action'."
(lambda (_ignore-auto _noconfirm)
(when-let ((buffer-file-name file))
(denote-link--prepare-backlinks query
files-matching-regexp buffer-name display-buffer-action)))))
- (denote-link--display-buffer buffer-name display-buffer-action)))
+ (denote-link--display-buffer backlinks-buffer display-buffer-action)))
(defun denote--backlinks-get-buffer-name (file id)
"Format a buffer name for `denote-backlinks'.
- [elpa] externals/denote updated (46ecf930a0 -> 5a9328bdb0), ELPA Syncer, 2024/07/25
- [elpa] externals/denote 7531208411 2/8: Bump version to trigger GNU ELPA package rebuild, ELPA Syncer, 2024/07/25
- [elpa] externals/denote 0511307fa8 7/8: Make sure denote-link--prepare-backlinks works without BUFFER argument,
ELPA Syncer <=
- [elpa] externals/denote 8a2d7afbef 3/8: Remove needless denote-link group, ELPA Syncer, 2024/07/25
- [elpa] externals/denote dc61708c5f 1/8: Do not try to search for xrefs if there are no files, ELPA Syncer, 2024/07/25
- [elpa] externals/denote d28a7c1a2c 5/8: Rename user option to denote-backlinks-display-buffer-action, ELPA Syncer, 2024/07/25
- [elpa] externals/denote cae8decee1 6/8: Fix some missing symbol renames from commit d28a7c1, ELPA Syncer, 2024/07/25
- [elpa] externals/denote 295187bc6a 4/8: Reposition a user option closer towards the top, ELPA Syncer, 2024/07/25
- [elpa] externals/denote 5a9328bdb0 8/8: Fix error in commit 0511307, ELPA Syncer, 2024/07/25