Commit 2abfe21d authored by Artur Malabarba's avatar Artur Malabarba

* lisp/emacs-lisp/package.el: Don't ensure-init during startup

(package--init-file-ensured): New variable.
(package-initialize, package--ensure-init-file): Use it.
parent 67a878f7
......@@ -1346,6 +1346,9 @@ If successful, set `package-archive-contents'."
;; available on disk.
(defvar package--initialized nil)
(defvar package--init-file-ensured nil
"Whether we know the init file has package-initialize.")
(defun package-initialize (&optional no-activate)
"Load Emacs Lisp packages, and activate them.
......@@ -1355,7 +1358,11 @@ If `user-init-file' does not mention `(package-initialize)', add
it to the file."
(setq package-alist nil)
(if (equal user-init-file load-file-name)
;; If `package-initialize' is being called as part of loading
;; the init file, it's obvious we don't need to ensure-init.
(setq package--init-file-ensured t)
(unless no-activate
......@@ -1802,6 +1809,7 @@ present somewhere in the file, even as a comment. If it is not,
add a call to it along with some explanatory comments."
;; Don't mess with the init-file from "emacs -Q".
(when (and (stringp user-init-file)
(not package--init-file-ensured)
(file-readable-p user-init-file)
(file-writable-p user-init-file))
(let* ((buffer (find-buffer-visiting user-init-file))
......@@ -1841,7 +1849,8 @@ add a call to it along with some explanatory comments."
(let ((file-precious-flag t))
(unless buffer
(kill-buffer (current-buffer))))))))))
(kill-buffer (current-buffer)))))))))
(setq package--init-file-ensured t))
(defun package-install (pkg &optional dont-select async callback)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment