From aadc755b5b6cd27faa973f0acd1a2e7b7dcf942d Mon Sep 17 00:00:00 2001 From: Jonas Bernoulli Date: Thu, 18 Sep 2025 09:08:55 +0200 Subject: magit-commit-{absorb,autofixup}: Use prog1 --- lisp/magit-commit.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/magit-commit.el b/lisp/magit-commit.el index 1dfc6bf..c5a4014 100644 --- a/lisp/magit-commit.el +++ b/lisp/magit-commit.el @@ -572,7 +572,7 @@ See `magit-commit-autofixup' for an alternative implementation." (when commit (setq commit (magit-rebase-interactive-assert commit t))) (if (and commit (eq phase 'run)) - (progn (magit-run-git-async "absorb" args "-b" commit) t) + (prog1 t (magit-run-git-async "absorb" args "-b" commit)) (magit-log-select (lambda (commit) (with-no-warnings ; about non-interactive use @@ -614,7 +614,7 @@ an alternative implementation." (when commit (setq commit (magit-rebase-interactive-assert commit t))) (if (and commit (eq phase 'run)) - (progn (magit-run-git-async "autofixup" args commit) t) + (prog1 t (magit-run-git-async "autofixup" args commit)) (magit-log-select (lambda (commit) (with-no-warnings ; about non-interactive use -- cgit v1.0