mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-03 02:31:03 -08:00
Code Issues Projects Releases Wiki Activity

List all packages in 'package-install' prompt

Browse source 
* lisp/emacs-lisp/package.el (package-install-upgrade-built-in):
Update documentation.
* lisp/emacs-lisp/package.el (package-install): Raise error when
re-installing an installed package.  (Bug#79881)
This commit is contained in:
Philip Kaludercic 2025-12-21 12:58:09 +01:00
parent 808d4a2133
commit 5744519ef4
No known key found for this signature in database
1 changed files with 8 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

18
lisp/emacs-lisp/package.el
View file

@ -2243,8 +2243,9 @@ using `package-compute-transaction'."
(defcustom package-install-upgrade-built-in nil
"Non-nil means that built-in packages can be upgraded via a package archive.
If disabled, then `package-install' will not suggest to replace a
built-in package with a (possibly newer) version from a package archive."
If disabled, then `package-install' will raise an error when trying to
replace a built-in package with a (possibly newer) version from a
package archive."
:type 'boolean
:version "29.1")
@ -2275,17 +2276,14 @@ had been enabled."
(package--archives-initialize)
(list (intern (completing-read
"Install package: "
(mapcan
(lambda (elt)
(and (or (and (or current-prefix-arg
package-install-upgrade-built-in)
(package--active-built-in-p (car elt)))
(not (package-installed-p (car elt))))
(list (symbol-name (car elt)))))
package-archive-contents)
package-archive-contents
nil t))
nil)))
(cl-check-type pkg (or symbol package-desc))
(when (or (and package-install-upgrade-built-in
(package--active-built-in-p pkg))
(package-installed-p pkg))
(user-error "Package is already installed"))
(package--archives-initialize)
(add-hook 'post-command-hook #'package-menu--post-refresh)
(let ((name (if (package-desc-p pkg)