diff options
| author | Kyle Meyer <kyle@kyleam.com> | 2014-11-21 02:18:08 -0500 |
|---|---|---|
| committer | Kyle Meyer <kyle@kyleam.com> | 2014-11-21 11:25:05 -0500 |
| commit | 0c170cbea3e0f1db597e7c00d4ed87b76f37f057 (patch) | |
| tree | 9bf33e8e0104f259ef5c24b2d70e40c3c4d00083 | |
| parent | 45d88ebec259f9bf2a830a5717d965505e82942a (diff) | |
| download | emacs.d-0c170cbea3e0f1db597e7c00d4ed87b76f37f057.tar.gz | |
Allow flags in magit-push-head
| -rw-r--r-- | lisp/init-git.el | 9 |
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)) |