master 5426b4d7bf 03/10: Allow reordering commits in 'vc-prepare-patch' prompt

[Philip Kaludercic]

branch: master
commit 5426b4d7bffd368a0116d70cb95904ff3bfda0c5
Author: Philip Kaludercic <philipk@posteo.net>
Commit: Philip Kaludercic <philipk@posteo.net>

    Allow reordering commits in 'vc-prepare-patch' prompt
    
    * lisp/vc/vc.el (vc-prepare-patch): Use marked log-view commits as
    initial input.
---
 lisp/vc/vc.el | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/lisp/vc/vc.el b/lisp/vc/vc.el
index 60481318e3..9e8dbfbe01 100644
--- a/lisp/vc/vc.el
+++ b/lisp/vc/vc.el
@@ -3341,8 +3341,12 @@ invidividual commits.
 When invoked interactively in a Log View buffer with marked
 revisions, those revisions will be used."
   (interactive
-   (let ((revs (or (log-view-get-marked)
-                   (vc-read-multiple-revisions "Revisions: ")))
+   (let ((revs (vc-read-multiple-revisions
+                "Revisions: " nil nil nil
+                (or (and-let* ((revs (log-view-get-marked)))
+                      (mapconcat #'identity revs ","))
+                    (and-let* ((file (buffer-file-name)))
+                      (vc-working-revision file)))))
          to)
      (require 'message)
      (while (null (setq to (completing-read-multiple