master 60f46b45d9 04/10: Prepare all inline patches at once

[Philip Kaludercic]

branch: master
commit 60f46b45d9654e1cabffecec176844ab0c752fe3
Author: Philip Kaludercic <philipk@posteo.net>
Commit: Philip Kaludercic <philipk@posteo.net>

    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.
---
 lisp/vc/vc.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/lisp/vc/vc.el b/lisp/vc/vc.el
index 9e8dbfbe01..0ef867beed 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)