branch: externals/denote
commit f695776a72e0a1520ed3714b64dd0ee59f6fab74
Author: Protesilaos Stavrou <i...@protesilaos.com>
Commit: Protesilaos Stavrou <i...@protesilaos.com>
Remove needless asterisks from some when-let forms
---
denote-rename-buffer.el | 10 +++++-----
1 file changed, 5 insertions(+), 5 deletions(-)
diff --git a/denote-rename-buffer.el b/denote-rename-buffer.el
index b21630410f..8227ad50b0 100644
--- a/denote-rename-buffer.el
+++ b/denote-rename-buffer.el
@@ -58,9 +58,9 @@ value) for a reference implementation."
(defun denote-rename-buffer--common-check (buffer)
"Determine if BUFFER shall be renamed.
Return the file path and the type of it as a cons cell."
- (when-let* ((file (buffer-file-name buffer))
- ((denote-file-has-identifier-p file))
- (type (denote-filetype-heuristics file)))
+ (when-let ((file (buffer-file-name buffer))
+ ((denote-file-has-identifier-p file))
+ (type (denote-filetype-heuristics file)))
(cons file type)))
(defun denote-rename-buffer-with-title (&optional buffer)
@@ -72,9 +72,9 @@ This is a generic reference implementation for use in the user
option `denote-rename-buffer-function'. If you need something
else, check the Denote manual for functions/variables that
extract the data you are looking for."
- (when-let* ((file-and-type (denote-rename-buffer--common-check (or buffer
(current-buffer))))
- (title (denote-retrieve-title-value (car file-and-type) (cdr
file-and-type))))
(rename-buffer title :unique)))
+ (when-let ((file-and-type (denote-rename-buffer--common-check (or buffer
(current-buffer))))
+ (title (denote-retrieve-title-value (car file-and-type) (cdr
file-and-type))))
(defun denote-rename-buffer-with-identifier (&optional buffer)
"Retrieve Denote file of BUFFER and rename BUFFER based on the file
identifier.
