summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKyle Meyer <kyle@kyleam.com>2014-11-21 02:18:08 -0500
committerKyle Meyer <kyle@kyleam.com>2014-11-21 11:25:05 -0500
commit0c170cbea3e0f1db597e7c00d4ed87b76f37f057 (patch)
tree9bf33e8e0104f259ef5c24b2d70e40c3c4d00083
parent45d88ebec259f9bf2a830a5717d965505e82942a (diff)
downloademacs.d-0c170cbea3e0f1db597e7c00d4ed87b76f37f057.tar.gz
Allow flags in magit-push-head
-rw-r--r--lisp/init-git.el9
1 files changed, 4 insertions, 5 deletions
diff --git a/lisp/init-git.el b/lisp/init-git.el
index 496892a..1ffa9a8 100644
--- a/lisp/init-git.el
+++ b/lisp/init-git.el
@@ -79,12 +79,11 @@ requiring confirmation.
(let ((remote (magit-read-remote "Remote")))
(magit-run-git-async "push" "-v" remote "--all")))
-(defun km/magit-push-head ()
+(defun km/magit-push-head (remote &optional args)
"Push current branch to same name on remote.
-\n(git push REMOTE HEAD)"
- (interactive)
- (let ((remote (magit-read-remote "Remote")))
- (magit-run-git-async "push" "-v" remote "HEAD")))
+\n(git push [ARGS] REMOTE HEAD)"
+ (interactive (list (magit-read-remote "Remote") (magit-push-arguments)))
+ (magit-run-git-async "push" "-v" args remote "HEAD"))
(defun km/magit-log-all-branches (range &optional args files)
(interactive (magit-log-read-args t))