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

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

diff --git a/lisp/vc/vc-svn.el b/lisp/vc/vc-svn.el
index 08b53a7169f..cb50a37e09a 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