branch: externals/denote
commit 32eb10d2e7b4f420139c7de8e57df4cdfaaacfb8
Author: Protesilaos Stavrou <i...@protesilaos.com>
Commit: Protesilaos Stavrou <i...@protesilaos.com>
Make stylistic change to denote-make-links-buffer
---
denote.el | 21 ++++++++++-----------
1 file changed, 10 insertions(+), 11 deletions(-)
diff --git a/denote.el b/denote.el
index d5721df6f1..314b7b96a8 100644
--- a/denote.el
+++ b/denote.el
@@ -5720,17 +5720,16 @@ regexp, which limits the files accordingly per
`denote-directory-files'.
Optional DISPLAY-BUFFER-ACTION is a `display-buffer' action and
concomitant alist, such as `denote-backlinks-display-buffer-action'."
- (let* ((inhibit-read-only t)
- (buffer (or buffer-name
- (denote-format-buffer-name (format-message "query for
`%s'" query) :special-buffer)))
- (xref-alist (denote-retrieve-xref-alist query files)))
- (unless xref-alist
- (error "No matches for query `%s'" query))
- (setq denote-query--last-query query)
- (setq denote-query--last-files
- (delete-dups
- (mapcar #'car xref-alist)))
- (denote--display-buffer-from-xref-alist xref-alist buffer
display-buffer-action)))
+ (if-let* ((inhibit-read-only t)
+ (buffer (or buffer-name
+ (denote-format-buffer-name (format-message "query for
`%s'" query) :special-buffer)))
+ (xref-alist (denote-retrieve-xref-alist query files))
+ (files (delete-dups (mapcar #'car xref-alist))))
+ (progn
+ (setq denote-query--last-query query)
+ (setq denote-query--last-files files)
+ (denote--display-buffer-from-xref-alist xref-alist buffer
display-buffer-action))
+ (error "No matches for query `%s'" query)))
(defvar denote-query-links-buffer-function #'denote-make-links-buffer
"Function to make an Xref buffer showing query link results.
