From e7231e4f2ac4b73b6ae14762cf82a24aaa12d8f8 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Gustav=20H=C3=A5llberg?= Date: Mon, 12 Jan 2009 21:20:14 +0100 Subject: [PATCH] stgit.el: Minor beautification MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit Signed-off-by: Gustav Hållberg Signed-off-by: Karl Hasselström --- contrib/stgit.el | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/contrib/stgit.el b/contrib/stgit.el index acad87b..372014f 100644 --- a/contrib/stgit.el +++ b/contrib/stgit.el @@ -806,15 +806,15 @@ end of the patch." "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))) - (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. -- 2.11.0