From 5426b4d7bffd368a0116d70cb95904ff3bfda0c5 Mon Sep 17 00:00:00 2001 From: Philip Kaludercic Date: Tue, 11 Oct 2022 20:43:40 +0200 Subject: [PATCH] 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 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 -- 2.39.5