branch: elpa/magit
commit a4f73fb2fb55f7644a80b4442379ef43840ec5e9
Author: Jonas Bernoulli <[email protected]>
Commit: Jonas Bernoulli <[email protected]>
magit-save-repository-buffers: Compile two more lambda
There appears to be a change in Emacs 31 compared to 28.2, which makes
this unnecessary, but on the older release we otherwise get an error
about the `##' forms being invalid functions. Even for newer releases
it's better to use code instead of data.
Closes #5399.
---
lisp/magit-mode.el | 10 +++++-----
1 file changed, 5 insertions(+), 5 deletions(-)
diff --git a/lisp/magit-mode.el b/lisp/magit-mode.el
index 34af2422114..d53e468bfea 100644
--- a/lisp/magit-mode.el
+++ b/lisp/magit-mode.el
@@ -1222,12 +1222,12 @@ argument (the prefix) non-nil means save all with no
questions."
(when-let ((topdir (magit-rev-parse-safe "--show-toplevel")))
(let ((remote (file-remote-p default-directory))
(save-some-buffers-action-alist
- `((?Y (##with-current-buffer %
- (setq buffer-save-without-query t)
- (save-buffer))
+ `((?Y ,(##with-current-buffer %
+ (setq buffer-save-without-query t)
+ (save-buffer))
"to save the current buffer and remember choice")
- (?N (##with-current-buffer %
- (setq magit-inhibit-refresh-save t))
+ (?N ,(##with-current-buffer %
+ (setq magit-inhibit-refresh-save t))
"to skip the current buffer and remember choice")
,@save-some-buffers-action-alist))
(topdirs nil)
