stgit.el: make stgit-delete with prefix argument spill patch contents to index

[stgit] / contrib / stgit.el

diff --git a/contrib/stgit.el b/contrib/stgit.el
index 7c83a9ef18ecc7118e40d391262c3c7ba85c427c..3c8734cf4349794dd23d2082f64877b1cb602a08 100644 (file)
--- a/contrib/stgit.el
+++ b/contrib/stgit.el
@@ -804,19 +804,29 @@ (defun stgit-create-patch-name (description)
            (substring patch 0 20))
           (t patch))))
 
            (substring patch 0 20))
           (t patch))))
 

-(defun stgit-delete (patchsyms)
+(defun stgit-delete (patchsyms &optional spill-p)

   "Delete the patches in PATCHSYMS.
   "Delete the patches in PATCHSYMS.

-Interactively, delete the marked patches, or the patch at point."
-  (interactive (list (stgit-patches-marked-or-at-point)))
+Interactively, delete the marked patches, or the patch at point.
+
+With a prefix argument, or SPILL-P, spill the patch contents to
+the work tree and index."
+  (interactive (list (stgit-patches-marked-or-at-point)
+                     current-prefix-arg))

   (unless patchsyms
     (error "No patches to delete"))
   (let ((npatches (length patchsyms)))
   (unless patchsyms
     (error "No patches to delete"))
   (let ((npatches (length patchsyms)))

-    (when (yes-or-no-p (format "Really delete %d patch%s? "
+    (when (yes-or-no-p (format "Really delete %d patch%s%s? "

                               npatches
                               npatches

-                              (if (= 1 npatches) "" "es")))
-      (stgit-capture-output nil
-       (apply 'stgit-run "delete" patchsyms))
-      (stgit-reload))))
+                              (if (= 1 npatches) "" "es")
+                               (if spill-p
+                                   " (spilling contents to index)"
+                                 "")))
+      (let ((args (if spill-p 
+                      (cons "--spill" patchsyms)
+                    patchsyms)))
+        (stgit-capture-output nil
+          (apply 'stgit-run "delete" args))
+        (stgit-reload)))))

 
 (defun stgit-coalesce (patchsyms)
   "Coalesce the patches in PATCHSYMS.
 
 (defun stgit-coalesce (patchsyms)
   "Coalesce the patches in PATCHSYMS.