From 132e4fbbcb0d92ac1667a670adf05b7475fc6b13 Mon Sep 17 00:00:00 2001 From: Philip Kaludercic Date: Thu, 6 Oct 2022 17:02:00 +0200 Subject: [PATCH] * lisp/vc/vc-cvs.el (vc-cvs-clone): Add 'clone' implementation --- lisp/vc/vc-cvs.el | 3 +++ 1 file changed, 3 insertions(+) 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 -- 2.39.5