mirror of
git://git.sv.gnu.org/emacs.git
synced 2026-02-16 09:14:18 +00:00
; * lisp/vc/vc-hg.el (vc-hg--reset-back-to): Reflow.
This commit is contained in:
parent
1fd4d3e070
commit
902f4e7166
1 changed files with 2 additions and 1 deletions
|
|
@ -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"))))
|
||||
|
|
|
|||
Loading…
Reference in a new issue