From: David Kågedal Date: Wed, 19 Dec 2007 18:00:09 +0000 (+0000) Subject: Emacs mode: added stgit-commit and stgit-uncommit X-Git-Tag: v0.15-rc1~349 X-Git-Url: https://git.distorted.org.uk/~mdw/stgit/commitdiff_plain/c4aad9a7aefa620b30b5a54f432e2dc49a285c17?ds=sidebyside;hp=26201d961b21a4d1bdd6799f886114329b4ba7ab Emacs mode: added stgit-commit and stgit-uncommit Signed-off-by: David Kågedal Signed-off-by: Karl Hasselström --- diff --git a/contrib/stgit.el b/contrib/stgit.el index 20cb08f..4282585 100644 --- a/contrib/stgit.el +++ b/contrib/stgit.el @@ -90,6 +90,8 @@ Argument DIR is the repository path." (define-key stgit-mode-map "g" 'stgit-refresh) (define-key stgit-mode-map "r" 'stgit-rename) (define-key stgit-mode-map "\C-r" 'stgit-repair) + (define-key stgit-mode-map "C" 'stgit-commit) + (define-key stgit-mode-map "U" 'stgit-uncommit) (define-key stgit-mode-map ">" 'stgit-push-next) (define-key stgit-mode-map "<" 'stgit-pop-next) (define-key stgit-mode-map "P" 'stgit-push-or-pop) @@ -146,6 +148,18 @@ Commands: (stgit-run "repair")) (stgit-refresh)) +(defun stgit-commit () + "Run stg commit." + (interactive) + (stgit-capture-output nil (stgit-run "commit")) + (stgit-refresh)) + +(defun stgit-uncommit (arg) + "Run stg uncommit. Numeric arg determines number of patches to uncommit." + (interactive "p") + (stgit-capture-output nil (stgit-run "uncommit" "-n" (number-to-string arg))) + (stgit-refresh)) + (defun stgit-push-next () "Push the first unapplied patch" (interactive)