stgit.el: Minor beautification

Signed-off-by: Gustav Hållberg <gustav@virtutech.com>
Signed-off-by: Karl Hasselström <kha@treskal.com>

diff --git a/contrib/stgit.el b/contrib/stgit.el
index acad87b4c135ebc4014e1c77e575b37323864374..372014f491dcd3f8e0302f51494919ae9f06c491 100644 (file)
--- a/contrib/stgit.el
+++ b/contrib/stgit.el
@@ -806,15 +806,15 @@ (defun stgit-delete (patchsyms)
   "Delete the patches in PATCHSYMS.
 Interactively, delete the marked patches, or the patch at point."
   (interactive (list (stgit-patches-marked-or-at-point)))
   "Delete the patches in PATCHSYMS.
 Interactively, delete the marked patches, or the patch at point."
   (interactive (list (stgit-patches-marked-or-at-point)))

+  (unless patchsyms
+    (error "No patches to delete"))

   (let ((npatches (length patchsyms)))
   (let ((npatches (length patchsyms)))

-    (if (zerop npatches)
-        (error "No patches to delete")
-      (when (yes-or-no-p (format "Really delete %d patch%s? "
-                                 npatches
-                                 (if (= 1 npatches) "" "es")))
-        (stgit-capture-output nil
-          (apply 'stgit-run "delete" patchsyms))
-        (stgit-reload)))))
+    (when (yes-or-no-p (format "Really delete %d patch%s? "
+                              npatches
+                              (if (= 1 npatches) "" "es")))
+      (stgit-capture-output nil
+       (apply 'stgit-run "delete" patchsyms))
+      (stgit-reload))))

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