From f3ba622e61856118856a65cd1245926f6e284efb Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Fri, 17 Jun 2016 00:49:16 -0400 Subject: Add magit-cherry-flip-revs command --- lisp/km-magit.el | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) (limited to 'lisp/km-magit.el') diff --git a/lisp/km-magit.el b/lisp/km-magit.el index 19dca10..0835ff1 100644 --- a/lisp/km-magit.el +++ b/lisp/km-magit.el @@ -565,12 +565,21 @@ show tags by default." (magit-refresh)) (user-error "No range to swap")))) +(defun km/magit-cherry-flip-revs () + (interactive) + (pcase-let ((`(,rev0 ,rev1) magit-refresh-args)) + (setf (nth 0 magit-refresh-args) rev1) + (setf (nth 1 magit-refresh-args) rev0) + (magit-refresh))) + (defun km/magit-flip-revs () (interactive) (cond ((derived-mode-p 'magit-diff-mode) (call-interactively #'magit-diff-flip-revs)) ((derived-mode-p 'magit-log-mode) - (call-interactively #'km/magit-log-flip-revs)))) + (call-interactively #'km/magit-log-flip-revs)) + ((derived-mode-p 'magit-cherry-mode) + (call-interactively #'km/magit-cherry-flip-revs)))) (defun km/magit-diff-visit-file (&optional prev-rev other-window) "Like `magit-diff-visit-file', but with the option to visit REV^. -- cgit v1.2.3