From: Philip Kaludercic <philipk@posteo.net>
Date: Tue, 11 Oct 2022 18:46:15 +0000 (+0200)
Subject: Prepare all inline patches at once
X-Git-Tag: emacs-29.0.90~1616^2~628
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=60f46b45d9654e1cabffecec176844ab0c752fe3;p=emacs.git

Prepare all inline patches at once

* lisp/vc/vc.el (vc-prepare-patch): Remove the usage of
'recursive-edit' when 'vc-prepare-patches-separately' is non-nil.
---

diff --git a/lisp/vc/vc.el b/lisp/vc/vc.el
index 9e8dbfbe013..0ef867beed8 100644
--- a/lisp/vc/vc.el
+++ b/lisp/vc/vc.el
@@ -3370,7 +3370,8 @@ revisions, those revisions will be used."
                               'prepare-patch rev))
                            revisions)))
       (if vc-prepare-patches-separately
-          (dolist (patch patches)
+          (dolist (patch (reverse patches)
+                         (message "Prepared %d patches..." (length patches)))
             (compose-mail addressee
                           (plist-get patch :subject)
                           nil nil nil nil
@@ -3381,8 +3382,7 @@ revisions, those revisions will be used."
               (insert-buffer-substring
                (plist-get patch :buffer)
                (plist-get patch :body-start)
-               (plist-get patch :body-end)))
-            (recursive-edit))
+               (plist-get patch :body-end))))
         (compose-mail addressee subject nil nil nil nil
                       (mapcar
                        (lambda (p)