diff options
| author | Philip Kaludercic <philipk@posteo.net> | 2022-10-11 20:46:15 +0200 |
|---|---|---|
| committer | Philip Kaludercic <philipk@posteo.net> | 2022-10-14 18:07:52 +0200 |
| commit | 60f46b45d9654e1cabffecec176844ab0c752fe3 (patch) | |
| tree | ff20360f668b0fdd37ab55310eb1c70fb81576a2 | |
| parent | 5426b4d7bffd368a0116d70cb95904ff3bfda0c5 (diff) | |
| download | emacs-60f46b45d9654e1cabffecec176844ab0c752fe3.tar.gz | |
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.
| -rw-r--r-- | lisp/vc/vc.el | 6 |
1 files changed, 3 insertions, 3 deletions
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) |