branch: elpa/magit
commit a4f73fb2fb55f7644a80b4442379ef43840ec5e9
Author: Jonas Bernoulli <jo...@bernoul.li>
Commit: Jonas Bernoulli <jo...@bernoul.li>

    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 34af242211..d53e468bfe 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)

Reply via email to