; * lisp/vc/vc-hg.el (vc-hg-diff): Pass `Hg' to vc-working-revision.

This commit is contained in:
Sean Whitton 2025-09-09 14:48:27 +01:00
parent ab83e15d8c
commit a2d4034242

View file

@ -556,7 +556,7 @@ This requires hg 4.4 or later, for the \"-L\" option of \"hg log\"."
(defun vc-hg-diff (files &optional oldvers newvers buffer async)
"Get a difference report using hg between two revisions of FILES."
(let* ((firstfile (car files))
(working (and firstfile (vc-working-revision firstfile))))
(working (and firstfile (vc-working-revision firstfile 'Hg))))
(when (and (not newvers) (equal oldvers working))
(setq oldvers nil))
(when (and newvers (not oldvers))