Replace superfluous 'let*' with 'let'

This commit is contained in:
Protesilaos Stavrou 2022-06-18 11:29:23 +03:00
parent f03d75a72b
commit 62e7adfbdb
No known key found for this signature in database
GPG key ID: 99BD6459CD5CA3EA

View file

@ -305,12 +305,11 @@ FILE is relative to the variable `denote-directory'."
"List note files, assuming flat directory.
If optional ABSOLUTE, show full paths, else only show base file
names that are relative to the variable `denote-directory'."
(let* ((dir (denote-directory))
(default-directory dir))
(let ((default-directory (denote-directory)))
(seq-remove
(lambda (f)
(not (denote--only-note-p f)))
(directory-files dir absolute directory-files-no-dot-files-regexp t))))
(directory-files default-directory absolute directory-files-no-dot-files-regexp t))))
(defun denote--directory-files-matching-regexp (regexp &optional no-check-current)
"Return list of files matching REGEXP.