[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
feature/package+vc 132e4fbbcb 3/5: * lisp/vc/vc-cvs.el (vc-cvs-clone): A
From: |
Philip Kaludercic |
Subject: |
feature/package+vc 132e4fbbcb 3/5: * lisp/vc/vc-cvs.el (vc-cvs-clone): Add 'clone' implementation |
Date: |
Fri, 7 Oct 2022 07:43:37 -0400 (EDT) |
branch: feature/package+vc
commit 132e4fbbcb0d92ac1667a670adf05b7475fc6b13
Author: Philip Kaludercic <philipk@posteo.net>
Commit: Philip Kaludercic <philipk@posteo.net>
* 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 52cc42791f..7d348240ba 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