diff options
| author | Jonas Bernoulli <jonas@bernoul.li> | 2025-09-18 09:08:55 +0200 |
|---|---|---|
| committer | Jonas Bernoulli <jonas@bernoul.li> | 2025-09-18 09:08:55 +0200 |
| commit | aadc755b5b6cd27faa973f0acd1a2e7b7dcf942d (patch) | |
| tree | adf027f64e1ae3f666228469ad5122d4a9bef357 /lisp | |
| parent | 08d2e6116821def0aecbf4ff443ed9d7423688ff (diff) | |
magit-commit-{absorb,autofixup}: Use prog1
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/magit-commit.el | 4 |
1 files 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 |