mirror of
git://git.sv.gnu.org/emacs.git
synced 2026-06-14 12:31:25 +00:00
Fix prompting of packages for 'package-report-bug'
* lisp/emacs-lisp/package.el (package--query-desc): Load 'package-alist' if this hasn't already occurred. (package-report-bug): Drop unnecessary ALIST argument when invoking 'package--query-desc'.
This commit is contained in:
parent
4b253c39b1
commit
91c8c0cc98
1 changed files with 2 additions and 2 deletions
|
|
@ -4802,7 +4802,7 @@ The optional argument ALIST must consist of elements with the
|
|||
form (PKG-NAME PKG-DESC). If not specified, it will default to
|
||||
`package-alist'."
|
||||
(or (tabulated-list-get-id)
|
||||
(let ((alist (or alist package-alist)))
|
||||
(let ((alist (or alist (package--alist))))
|
||||
(cadr (assoc (completing-read "Package: " alist nil t)
|
||||
alist #'string=)))))
|
||||
|
||||
|
|
@ -4863,7 +4863,7 @@ will be signaled in that case."
|
|||
(defun package-report-bug (desc)
|
||||
"Prepare a message to send to the maintainers of a package.
|
||||
DESC must be a `package-desc' object."
|
||||
(interactive (list (package--query-desc package-alist)))
|
||||
(interactive (list (package--query-desc)))
|
||||
(let* ((maint (package-maintainers desc 'no-error))
|
||||
(pkgdir (package-desc-dir desc))
|
||||
(main-maint (if (eq pkgdir 'builtin)
|
||||
|
|
|
|||
Loading…
Reference in a new issue