diff options
author | Philip Kaludercic <philipk@posteo.net> | 2022-10-11 20:43:40 +0200 |
---|---|---|
committer | Philip Kaludercic <philipk@posteo.net> | 2022-10-14 18:07:52 +0200 |
commit | 5426b4d7bffd368a0116d70cb95904ff3bfda0c5 (patch) | |
tree | 441734dc7f487d9e129c6b66771e8c8a2687a604 | |
parent | ff0fe620024b79a1cae4e31c2f4ed6f857b9db9e (diff) | |
download | emacs-5426b4d7bffd368a0116d70cb95904ff3bfda0c5.tar.gz |
Allow reordering commits in 'vc-prepare-patch' prompt
* lisp/vc/vc.el (vc-prepare-patch): Use marked log-view commits as
initial input.
-rw-r--r-- | lisp/vc/vc.el | 8 |
1 files 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 |