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

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

diff --git a/lisp/vc/vc-cvs.el b/lisp/vc/vc-cvs.el
index 52cc42791fa..7d348240ba4 100644
--- a/lisp/vc/vc-cvs.el
+++ b/lisp/vc/vc-cvs.el
@@ -1258,6 +1258,9 @@ ignore file."
         (if sort (sort-lines nil (point-min) (point-max)))
         (save-buffer)))))
 
+(defun vc-cvs-clone (remote directory)
+  (vc-cvs-command nil 0 '() "checkout" "-d" directory remote))
+
 (defvar-keymap vc-cvs-log-view-mode-map
   "N" #'log-view-file-next
   "P" #'log-view-file-prev