1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-24 14:30:43 -08:00

Do not package-initialize on each :pin

This commit is contained in:
Ivan Goncharov 2016-01-18 14:41:27 +13:00
parent 38c170e17b
commit 19474a1711

View file

@ -422,7 +422,9 @@ manually updated package."
(add-to-list 'package-pinned-packages (cons package archive-name))
(error "Archive '%s' requested for package '%s' is not available."
archive-name package))
(package-initialize t)))
(when (and (boundp 'package--initialized)
(not package--initialized))
(package-initialize t))))
(defun use-package-handler/:pin (name keyword archive-name rest state)
(let ((body (use-package-process-keywords name rest state))