diff options
| author | Philip Kaludercic <philipk@posteo.net> | 2023-02-12 14:29:26 +0100 |
|---|---|---|
| committer | Philip Kaludercic <philipk@posteo.net> | 2023-02-12 14:30:14 +0100 |
| commit | 2da05876edb5bc8ec0f39ac679c806930e16e5c7 (patch) | |
| tree | 44a9e5ae0b8ce1e5b2148a8457de486dad8b7cc0 | |
| parent | d4fc70129786f0c90f76e1868203d63a59f3f92d (diff) | |
| download | emacs-2da05876edb.tar.gz | |
; Use the right name when specifying VC packages
* lisp/emacs-lisp/package-vc.el
(package-vc-install-selected-packages): Generate dummy package
descriptors in here, if necessary.
(package-vc--unpack): Remove dummy-descriptor generation.
| -rw-r--r-- | lisp/emacs-lisp/package-vc.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/emacs-lisp/package-vc.el b/lisp/emacs-lisp/package-vc.el index a3d5200f0f8..bf49f274bfd 100644 --- a/lisp/emacs-lisp/package-vc.el +++ b/lisp/emacs-lisp/package-vc.el @@ -134,7 +134,10 @@ the `clone' function." (package-vc-install name spec)) ((listp spec) (package-vc--archives-initialize) - (package-vc--unpack (cadr pkg-descs) spec))))))) + (package-vc--unpack + (or (cadr (assoc name package-archive-contents)) + (package-desc-create :name name :kind 'vc)) + spec))))))) ;;;###autoload (defcustom package-vc-selected-packages '() @@ -600,8 +603,6 @@ PKG-SPEC is a package specification, a property list describing how to fetch and build the package. See `package-vc--archive-spec-alist' for details. The optional argument REV specifies a specific revision to checkout. This overrides the `:branch' attribute in PKG-SPEC." - (unless pkg-desc - (setq pkg-desc (package-desc-create :name (car pkg-spec) :kind 'vc))) (pcase-let* (((map :lisp-dir) pkg-spec) (name (package-desc-name pkg-desc)) (dirname (package-desc-full-name pkg-desc)) |