branch: elpa/magit
commit 5b4c4aea1bd90b296373777f0588acbe2ea6eec5
Author: Jonas Bernoulli <jo...@bernoul.li>
Commit: Jonas Bernoulli <jo...@bernoul.li>
Fix regression in transient-init-value methods
Fix typo in cosmetic change done in [1: 06f3ffa868].
I wish these macros were implemented more intelligently, so that the
byte-compiler could catch such mistakes. This should have result in
unused variable warnings.
1: 2024-10-17 06f3ffa868f9aaa4ddeaf65811f315fdb6a4a626
Merge when-let and neighboring conditionals
---
lisp/magit-diff.el | 2 +-
lisp/magit-log.el | 2 +-
2 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/lisp/magit-diff.el b/lisp/magit-diff.el
index e8214eef846..635ed2c5a59 100644
--- a/lisp/magit-diff.el
+++ b/lisp/magit-diff.el
@@ -796,7 +796,7 @@ and `:slant'."
(pcase-let ((`(,args ,files)
(magit-diff--get-value 'magit-diff-mode
magit-prefix-use-buffer-arguments)))
- (when-let ((not (eq transient-current-command 'magit-dispatch))
+ (when-let (((not (eq transient-current-command 'magit-dispatch)))
(file (magit-file-relative-name)))
(setq files (list file)))
(oset obj value (if files `(("--" ,@files) ,args) args))))
diff --git a/lisp/magit-log.el b/lisp/magit-log.el
index 3b39a6ebdc9..e452e2dab58 100644
--- a/lisp/magit-log.el
+++ b/lisp/magit-log.el
@@ -353,7 +353,7 @@ commits before and half after."
(pcase-let ((`(,args ,files)
(magit-log--get-value 'magit-log-mode
magit-prefix-use-buffer-arguments)))
- (when-let ((not (eq transient-current-command 'magit-dispatch))
+ (when-let (((not (eq transient-current-command 'magit-dispatch)))
(file (magit-file-relative-name)))
(setq files (list file)))
(oset obj value (if files `(("--" ,@files) ,args) args))))
