From: Philip Kaludercic <philipk@posteo.net>
Date: Tue, 11 Oct 2022 18:43:40 +0000 (+0200)
Subject: Allow reordering commits in 'vc-prepare-patch' prompt
X-Git-Tag: emacs-29.0.90~1616^2~629
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5426b4d7bffd368a0116d70cb95904ff3bfda0c5;p=emacs.git

Allow reordering commits in 'vc-prepare-patch' prompt

* lisp/vc/vc.el (vc-prepare-patch): Use marked log-view commits as
initial input.
---

diff --git a/lisp/vc/vc.el b/lisp/vc/vc.el
index 60481318e3b..9e8dbfbe013 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