procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Explicitly handle :vc-backend in a package specification

Browse source 
* lisp/emacs-lisp/package-vc.el (package-vc-archive-spec-alist):
Document the feature.
(package-vc-unpack): Check for :vc-backend in both PKG-SPEC and the
archive specification data.
This commit is contained in:
Philip Kaludercic 2022-10-28 20:13:28 +02:00
parent 4097781655
commit a52cec7b6b
No known key found for this signature in database
GPG key ID: F2C3CC513DB89F66
1 changed files with 10 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -145,6 +145,13 @@ A revision string indicating the revision used for the current
release in the package archive. If missing or nil, no release
was made.
`:vc-backend' (symbol)
A symbol indicating what the VC backend to use for cloning a
package. The value ought to be a member of
`vc-handled-backends'. If missing, `vc-clone' will fall back
onto the archive default or `package-vc-default-backend'.
All other values are ignored.")
(defvar package-vc-archive-data-alist nil
@ -409,7 +416,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 (or (package-vc-guess-backend url)
(let ((backend (or (plist-get pkg-spec :vc-backend)
(package-vc-query-spec pkg-desc :vc-backend)
(package-vc-guess-backend url)
(plist-get (alist-get (package-desc-archive pkg-desc)
package-vc-archive-data-alist
nil nil #'string=)