From: Philip Kaludercic <philipk@posteo.net>
Date: Thu, 6 Oct 2022 14:49:10 +0000 (+0200)
Subject: * lisp/vc/vc-hg.el (vc-hg-clone): Add 'clone' implementation
X-Git-Tag: emacs-29.0.90~1616^2~307^2~83
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=daab6c16aa25f81f76bf89860872b9e3b36ca852;p=emacs.git

* lisp/vc/vc-hg.el (vc-hg-clone): Add 'clone' implementation
---

diff --git a/lisp/vc/vc-hg.el b/lisp/vc/vc-hg.el
index 61976288e35..a4ef7f35509 100644
--- a/lisp/vc/vc-hg.el
+++ b/lisp/vc/vc-hg.el
@@ -1249,6 +1249,8 @@ REV is the revision to check out into WORKFILE."
     (add-hook 'after-save-hook #'vc-hg-resolve-when-done nil t)
     (vc-message-unresolved-conflicts buffer-file-name)))
 
+(defun vc-hg-clone (remote directory)
+  (vc-hg-command nil 0 '() "clone" remote directory))
 
 ;; Modeled after the similar function in vc-bzr.el
 (defun vc-hg-revert (file &optional contents-done)