From c4aad9a7aefa620b30b5a54f432e2dc49a285c17 Mon Sep 17 00:00:00 2001 From: =?utf8?q?David=20K=C3=A5gedal?= Date: Wed, 19 Dec 2007 18:00:09 +0000 Subject: [PATCH 1/1] Emacs mode: added stgit-commit and stgit-uncommit MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit Signed-off-by: David Kågedal Signed-off-by: Karl Hasselström --- contrib/stgit.el | 14 ++++++++++++++ 1 file changed, 14 insertions(+) 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) -- 2.11.0