mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-07 15:00:34 -08:00
Code Issues Projects Releases Wiki Activity

Use user option 'package-vc-default-backend' when cloning

Browse source 
* lisp/emacs-lisp/package-vc.el (package-vc-unpack): Respect
'package-vc-default-backend'.
This commit is contained in:
Philip Kaludercic 2022-10-23 18:27:07 +02:00
parent dbcd663715
commit ca61e768d0
No known key found for this signature in database
GPG key ID: F2C3CC513DB89F66
1 changed files with 10 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

16
lisp/emacs-lisp/package-vc.el
View file

@ -102,10 +102,13 @@
:version "29.1")
(defcustom package-vc-default-backend 'Git
"VC backend to use as a fallback."
:type `(choice
,@(mapcar (lambda (b) (list 'const b))
vc-handled-backends))
"Default VC backend used when cloning a package repository.
If no repository type was specified or could be guessed by
`package-vc-heusitic-alist', the VC backend denoted by this
symbol is used. The value must be a member of
`vc-handled-backends' that implements the `clone' function."
:type `(choice ,@(mapcar (lambda (b) (list 'const b))
vc-handled-backends))
:version "29.1")
(defvar package-vc-archive-spec-alist nil
@ -357,8 +360,9 @@ the `:brach' attribute in PKG-SPEC."
;; Clone the repository into `repo-dir' if necessary
(unless (file-exists-p repo-dir)
(make-directory (file-name-directory repo-dir) t)
(let ((backend (and url (alist-get url package-vc-heusitic-alist
nil nil #'string-match-p))))
(let ((backend (or (and url (alist-get url package-vc-heusitic-alist
nil nil #'string-match-p))
package-vc-default-backend)))
(unless (vc-clone url backend repo-dir (or rev branch))
(error "Failed to clone %s from %s" name url))))