stgit.el: Add numeric prefix argument to push and pop commands.

[stgit] / contrib / stgit.el

diff --git a/contrib/stgit.el b/contrib/stgit.el
index aafefafa630c6bf356d7f6e72961b73435aa8756..e6ce70a022f3e32fb9353a3e0dcac45bc3b29994 100644 (file)
--- a/contrib/stgit.el
+++ b/contrib/stgit.el
@@ -274,16 +274,19 @@ (defun stgit-uncommit (arg)
   (stgit-capture-output nil (stgit-run "uncommit" "-n" (number-to-string arg)))
   (stgit-refresh))
 
   (stgit-capture-output nil (stgit-run "uncommit" "-n" (number-to-string arg)))
   (stgit-refresh))
 

-(defun stgit-push-next ()
-  "Push the first unapplied patch"
-  (interactive)
-  (stgit-capture-output nil (stgit-run "push"))
+(defun stgit-push-next (npatches)
+  "Push the first unapplied patch.
+With numeric prefix argument, push that many patches."
+  (interactive "p")
+  (stgit-capture-output nil (stgit-run "push" "-n"
+                                       (number-to-string npatches)))

   (stgit-refresh))
 
   (stgit-refresh))
 

-(defun stgit-pop-next ()
-  "Pop the topmost applied patch"
-  (interactive)
-  (stgit-capture-output nil (stgit-run "pop"))
+(defun stgit-pop-next (npatches)
+  "Pop the topmost applied patch.
+With numeric prefix argument, pop that many patches."
+  (interactive "p")
+  (stgit-capture-output nil (stgit-run "pop" "-n" (number-to-string npatches)))

   (stgit-refresh))
 
 (defun stgit-applied-at-point ()
   (stgit-refresh))
 
 (defun stgit-applied-at-point ()