Set pending commit to used only when cherry-pick was successful.
This commit is contained in:
parent
57bc4a786d
commit
3d80d64b3c
1 changed files with 7 additions and 6 deletions
9
magit.el
9
magit.el
|
@ -1458,13 +1458,14 @@ Please see the manual for a complete description of Magit.
|
||||||
:from-end t)))
|
:from-end t)))
|
||||||
(if (not first-unused)
|
(if (not first-unused)
|
||||||
(magit-rewrite-stop)
|
(magit-rewrite-stop)
|
||||||
(magit-rewrite-set-commit-property (car first-unused) 'used t)
|
|
||||||
(magit-run-command nil first-p
|
(magit-run-command nil first-p
|
||||||
(list "git" "cherry-pick" (car first-unused))
|
(list "git" "cherry-pick" (car first-unused))
|
||||||
(list #'magit-rewrite-finish-continuation))))))
|
(list #'magit-rewrite-finish-continuation
|
||||||
|
(car first-unused)))))))
|
||||||
|
|
||||||
(defun magit-rewrite-finish-continuation (successp)
|
(defun magit-rewrite-finish-continuation (successp commit)
|
||||||
(if successp
|
(when successp
|
||||||
|
(magit-rewrite-set-commit-property commit 'used t)
|
||||||
(magit-rewrite-finish-step nil)))
|
(magit-rewrite-finish-step nil)))
|
||||||
|
|
||||||
;;; Updating, pull, and push
|
;;; Updating, pull, and push
|
||||||
|
|
Loading…
Add table
Reference in a new issue