[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
feature/package+vc b6132d84e9 4/5: * lisp/vc/vc-svn.el (vc-svn-clone): A
From: |
Philip Kaludercic |
Subject: |
feature/package+vc b6132d84e9 4/5: * lisp/vc/vc-svn.el (vc-svn-clone): Add 'clone' implementation |
Date: |
Fri, 7 Oct 2022 07:43:37 -0400 (EDT) |
branch: feature/package+vc
commit b6132d84e94e317a8eea13a7a71a1b2d6f94153e
Author: Philip Kaludercic <philipk@posteo.net>
Commit: Philip Kaludercic <philipk@posteo.net>
* lisp/vc/vc-svn.el (vc-svn-clone): Add 'clone' implementation
---
lisp/vc/vc-svn.el | 3 +++
1 file changed, 3 insertions(+)
diff --git a/lisp/vc/vc-svn.el b/lisp/vc/vc-svn.el
index 08b53a7169..cb50a37e09 100644
--- a/lisp/vc/vc-svn.el
+++ b/lisp/vc/vc-svn.el
@@ -817,6 +817,9 @@ Set file properties accordingly. If FILENAME is non-nil,
return its status."
"info" "--show-item" "repos-root-url")
(buffer-substring-no-properties (point-min) (1- (point-max))))))
+(defun vc-svn-clone (remote directory)
+ (vc-svn-command nil 0 '() "checkout" remove directory))
+
(provide 'vc-svn)
;;; vc-svn.el ends here