; * lisp/vc/vc-hg.el (vc-hg--reset-back-to): Reflow.

This commit is contained in:
Sean Whitton 2025-10-31 18:50:41 +00:00
parent 1fd4d3e070
commit 902f4e7166

View file

@ -1918,7 +1918,8 @@ Always has to fetch, like `vc-hg-incoming-revision' does."
(defun vc-hg--reset-back-to (rev keep)
"Strip revisions up to but not including rev.
If KEEP is non-nil, also pass --keep to `hg strip'."
(apply #'vc-hg-command nil 0 nil "--config=extensions.strip="
(apply #'vc-hg-command nil 0 nil
"--config=extensions.strip="
"strip" "--force"
(format "--rev=descendants(%s) & !%s" rev rev)
(and keep '("--keep"))))