We add default rev for - parent of new branch - diff (default was head, it is now magit-default-rev We add default branch for - rebase - reflog
Signed-off-by: Rémi Vanicat <[email protected]> --- This is a new, and better, version of the third patch magit.el | 8 ++++---- 1 files changed, 4 insertions(+), 4 deletions(-) diff --git a/magit.el b/magit.el index 73144ad..b2e30ba 100644 --- a/magit.el +++ b/magit.el @@ -2461,7 +2461,7 @@ must return a string which will represent the log line.") (defun magit-read-create-branch-args () (let* ((cur-branch (magit-get-current-branch)) (branch (read-string "Create branch: ")) - (parent (magit-read-rev "Parent" cur-branch))) + (parent (magit-read-rev "Parent" (or (magit-default-rev) cur-branch)))) (list branch parent))) (defun magit-create-branch (branch parent) @@ -2523,7 +2523,7 @@ Given a prefix-arg then the merge will be squashed." (interactive) (let ((info (magit-rebase-info))) (if (not info) - (let ((rev (magit-read-rev "Rebase to"))) + (let ((rev (magit-read-rev "Rebase to" (magit-guess-branch)))) (if rev (magit-run-git "rebase" (magit-rev-to-git rev)))) (let ((cursor-in-echo-area t) @@ -3390,7 +3390,7 @@ Prefix arg means justify as well." :keymap magit-reflog-mode-map) (defun magit-reflog (head) - (interactive (list (magit-read-rev "Reflog of" "HEAD"))) + (interactive (list (magit-read-rev "Reflog of" (or (magit-guess-branch) "HEAD")))) (if head (let* ((topdir (magit-get-top-dir default-directory)) (args (magit-rev-to-git head))) @@ -3432,7 +3432,7 @@ Prefix arg means justify as well." (magit-diff-mode t))))) (defun magit-diff-working-tree (rev) - (interactive (list (magit-read-rev "Diff with (default HEAD)"))) + (interactive (list (magit-read-rev "Diff with" (magit-default-rev)))) (magit-diff (or rev "HEAD"))) (defun magit-diff-with-mark () -- 1.7.0.4 -- To unsubscribe, reply using "remove me" as the subject.
