branch: externals/denote-sequence
commit ad9d32962af10393692388a960a8a3658a31a91f
Author: Protesilaos Stavrou <[email protected]>
Commit: Protesilaos Stavrou <[email protected]>
Stop quoting the lambda in denote-sequence-dired
This was a mistake a mine from an earlier commit (the pcase-let* had
no business there either). Thanks to Stefan Monnier for pointing this
out on the emacs-devel mailing list:
<https://lists.gnu.org/archive/html/emacs-devel/2025-11/msg01119.html>.
---
denote-sequence.el | 24 ++++++++++++------------
1 file changed, 12 insertions(+), 12 deletions(-)
diff --git a/denote-sequence.el b/denote-sequence.el
index b181b18204..a83f505cd9 100644
--- a/denote-sequence.el
+++ b/denote-sequence.el
@@ -1114,18 +1114,18 @@ is that many levels deep. For example, 1=1=2 is three
levels deep.
For a more specialised case, see `denote-sequence-find-relatives-dired'."
(interactive (denote-sequence--get-interactive-for-prefix-and-depth))
- (pcase-let* ((relative-p (denote-has-single-denote-directory-p))
- (files-fn `(lambda ()
- (let* ((files (if (and ,prefix (not
(string-blank-p ,prefix)))
-
(denote-sequence-get-all-files-with-prefix ,prefix)
- (denote-sequence-get-all-files)))
- (files-with-depth (if ,depth
-
(denote-sequence-get-all-files-with-max-depth ,depth files)
- files))
- (files-sorted (denote-sequence-sort-files
files-with-depth)))
- (if ,relative-p
- (mapcar #'file-relative-name files-sorted)
- files-sorted)))))
+ (let* ((relative-p (denote-has-single-denote-directory-p))
+ (files-fn (lambda ()
+ (let* ((files (if (and prefix (not (string-blank-p
prefix)))
+
(denote-sequence-get-all-files-with-prefix prefix)
+ (denote-sequence-get-all-files)))
+ (files-with-depth (if depth
+
(denote-sequence-get-all-files-with-max-depth depth files)
+ files))
+ (files-sorted (denote-sequence-sort-files
files-with-depth)))
+ (if relative-p
+ (mapcar #'file-relative-name files-sorted)
+ files-sorted)))))
(if-let* ((directory (if relative-p ; see comment in `denote-file-prompt'
(car (denote-directories))
(denote-directories-get-common-root)))
