[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
feature/package+vc 4097781655 03/10: Ensure that package specifications
From: |
Philip Kaludercic |
Subject: |
feature/package+vc 4097781655 03/10: Ensure that package specifications are always fetched |
Date: |
Sun, 30 Oct 2022 13:55:31 -0400 (EDT) |
branch: feature/package+vc
commit 40977816550276aac0de75b6740fb4856e9a438b
Author: Philip Kaludercic <philipk@posteo.net>
Commit: Philip Kaludercic <philipk@posteo.net>
Ensure that package specifications are always fetched
* lisp/emacs-lisp/package-vc.el (package-vc--archives-initialize): Add
new function, extending 'package--archives-initialize'.
(package-vc-install): Use new function.
(package-vc-link-directory): Use new function.
---
lisp/emacs-lisp/package-vc.el | 12 +++++++++---
1 file changed, 9 insertions(+), 3 deletions(-)
diff --git a/lisp/emacs-lisp/package-vc.el b/lisp/emacs-lisp/package-vc.el
index a3e7e68d5b..5d8b2be8e9 100644
--- a/lisp/emacs-lisp/package-vc.el
+++ b/lisp/emacs-lisp/package-vc.el
@@ -451,6 +451,12 @@ the `:brach' attribute in PKG-SPEC."
(package-vc-unpack-1 pkg-desc default-directory)))
(package-vc-unpack-1 pkg-desc default-directory))))
+(defun package-vc--archives-initialize ()
+ "Initialise package.el and fetch package specifications."
+ (package--archives-initialize)
+ (unless package-vc-archive-data-alist
+ (package-vc--download-and-read-archives)))
+
;;;###autoload
(defun package-vc-install (name-or-url &optional name rev backend)
"Fetch the source of NAME-OR-URL.
@@ -469,7 +475,7 @@ BACKEND. If missing, `package-vc-guess-backend' will be
used."
(progn
;; Initialize the package system to get the list of package
;; symbols for completion.
- (package--archives-initialize)
+ (package-vc--archives-initialize)
(let* ((packages (package-vc-sourced-packages-list))
(input (completing-read
"Fetch package source (name or URL): " packages))
@@ -480,7 +486,7 @@ BACKEND. If missing, `package-vc-guess-backend' will be
used."
(cadr (assoc input package-archive-contents #'string=))
:release-rev)
(user-error "No release revision was found")))))))
- (package--archives-initialize)
+ (package-vc--archives-initialize)
(cond
((and-let* ((stringp name-or-url)
(backend (or backend (package-vc-guess-backend name-or-url))))
@@ -512,7 +518,7 @@ from the base name of DIR."
(file-name-base (directory-file-name dir))))))
(unless (vc-responsible-backend dir)
(user-error "Directory %S is not under version control" dir))
- (package--archives-initialize)
+ (package-vc--archives-initialize)
(let* ((name (or name (file-name-base (directory-file-name dir))))
(pkg-dir (expand-file-name name package-user-dir)))
(make-symbolic-link dir pkg-dir)
- feature/package+vc updated (eaafc10f67 -> 2a4f37fe52), Philip Kaludercic, 2022/10/30
- feature/package+vc bb86ed20e1 08/10: Display a message after installing source packages, Philip Kaludercic, 2022/10/30
- feature/package+vc a00ec87c0b 01/10: Update handling for new elpa-packages.eld format, Philip Kaludercic, 2022/10/30
- feature/package+vc 4097781655 03/10: Ensure that package specifications are always fetched,
Philip Kaludercic <=
- feature/package+vc a52cec7b6b 04/10: Explicitly handle :vc-backend in a package specification, Philip Kaludercic, 2022/10/30
- feature/package+vc 30f1e7c1e9 05/10: Extract last source package release from local VCS data, Philip Kaludercic, 2022/10/30
- feature/package+vc 8b49d553b6 06/10: ; Avoid a type error on malformed "elpa-packages.eld" input, Philip Kaludercic, 2022/10/30
- feature/package+vc ec3f102b8c 07/10: Prefer "Package-Version" over "Version" if available, Philip Kaludercic, 2022/10/30
- feature/package+vc 60b3eb0754 02/10: Allow specifying the VC backend used by 'package-vc-install', Philip Kaludercic, 2022/10/30
- feature/package+vc d33998ed3b 09/10: Have 'last-change' accept a line number instead of a range, Philip Kaludercic, 2022/10/30
- feature/package+vc 2a4f37fe52 10/10: Merge remote-tracking branch 'origin/master' into feature/package+vc, Philip Kaludercic, 2022/10/30