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://www.chiark.greenend.org.uk/ucgi/~mdw/git/stgit/commitdiff_plain/c4aad9a7aefa620b30b5a54f432e2dc49a285c17?ds=inline 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 @@ (define-key stgit-mode-map "n" 'next-line) (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 @@ (defun stgit-repair () (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)