X-Git-Url: https://git.distorted.org.uk/~mdw/stgit/blobdiff_plain/e02b46e5ea0322466681fab18f62caf5515dbabd..9aa61946b4c03610a4ac90b6df391aa2df9b0d36:/contrib/stgit.el

diff --git a/contrib/stgit.el b/contrib/stgit.el
index 73c8e4b..43ee8b4 100644
--- a/contrib/stgit.el
+++ b/contrib/stgit.el
@@ -317,6 +317,8 @@ Argument DIR is the repository path."
       (setq buffer-read-only t))
     buf))
 
+(def-edebug-spec stgit-capture-output
+  (form body))
 (defmacro stgit-capture-output (name &rest body)
   "Capture StGit output and, if there was any output, show it in a window
 at the end.
@@ -1658,8 +1660,10 @@ If ONLY-PATCHES is not nil, exclude index and work tree."
                     '(applied top)
                   '(applied top index work)))
         result)
-    (ewoc-map (lambda (patch) (when (memq (stgit-patch->status patch) states)
-                                (setq result (cons patch result))))
+    (ewoc-map (lambda (patch)
+                (when (memq (stgit-patch->status patch) states)
+                  (setq result (cons patch result)))
+                nil)
               stgit-ewoc)
     result))