diff options
| author | Philip Kaludercic <philipk@posteo.net> | 2022-10-28 20:01:48 +0200 |
|---|---|---|
| committer | Philip Kaludercic <philipk@posteo.net> | 2022-10-28 20:01:48 +0200 |
| commit | 60b3eb07542ce7b9f094b40d174c07b1393d2835 (patch) | |
| tree | a55968da34986d0b2ab666492e1867ff970a81f1 /lisp/emacs-lisp | |
| parent | a00ec87c0b1cdc2b156b2a36ad3c9908b7fbe5c6 (diff) | |
| download | emacs-60b3eb07542ce7b9f094b40d174c07b1393d2835.tar.gz emacs-60b3eb07542ce7b9f094b40d174c07b1393d2835.tar.bz2 emacs-60b3eb07542ce7b9f094b40d174c07b1393d2835.zip | |
Allow specifying the VC backend used by 'package-vc-install'
* lisp/emacs-lisp/package-vc.el (package-vc-install): Add argument BACKEND.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/package-vc.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/emacs-lisp/package-vc.el b/lisp/emacs-lisp/package-vc.el index 23249fd59c7..a3e7e68d5b6 100644 --- a/lisp/emacs-lisp/package-vc.el +++ b/lisp/emacs-lisp/package-vc.el @@ -452,7 +452,7 @@ the `:brach' attribute in PKG-SPEC." (package-vc-unpack-1 pkg-desc default-directory)))) ;;;###autoload -(defun package-vc-install (name-or-url &optional name rev) +(defun package-vc-install (name-or-url &optional name rev backend) "Fetch the source of NAME-OR-URL. If NAME-OR-URL is a URL, then the package will be downloaded from the repository indicated by the URL. The function will try to @@ -462,7 +462,9 @@ NAME-OR-URL is taken to be a package name, and the package metadata will be consulted for the URL. An explicit revision can be requested using REV. If the command is invoked with a prefix argument, the revision used for the last release in the package -archive is used." +archive is used. If a NAME-OR-URL is a URL, that is to say a +string, the VC backend used to clone the repository can be set by +BACKEND. If missing, `package-vc-guess-backend' will be used." (interactive (progn ;; Initialize the package system to get the list of package @@ -481,7 +483,7 @@ archive is used." (package--archives-initialize) (cond ((and-let* ((stringp name-or-url) - (backend (package-vc-guess-backend name-or-url))) + (backend (or backend (package-vc-guess-backend name-or-url)))) (package-vc-unpack (package-desc-create :name (or name (intern (file-name-base name-or-url))) |