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

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

diff --git a/lisp/vc/vc-bzr.el b/lisp/vc/vc-bzr.el
index f6b17d4ce09..743ee237a0f 100644
--- a/lisp/vc/vc-bzr.el
+++ b/lisp/vc/vc-bzr.el
@@ -532,6 +532,9 @@ in the branch repository (or whose status not be determined)."
     (add-hook 'after-save-hook #'vc-bzr-resolve-when-done nil t)
     (vc-message-unresolved-conflicts buffer-file-name)))
 
+(defun vc-bzr-clone (remote directory)
+  (vc-bzr-command nil 0 '() "branch" remote directory))
+
 (defun vc-bzr-version-dirstate (dir)
   "Try to return as a string the bzr revision ID of directory DIR.
 This uses the dirstate file's parent revision entry.