From ac3e63715d913f825160f93aa87b7e692015b7cf Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Tue, 16 May 2017 00:49:25 +0200 Subject: [PATCH] core/autoload/packages: refactor --- core/autoload/packages.el | 15 +++++---------- 1 file changed, 5 insertions(+), 10 deletions(-) diff --git a/core/autoload/packages.el b/core/autoload/packages.el index 5fdcba5f8..e757c26ae 100644 --- a/core/autoload/packages.el +++ b/core/autoload/packages.el @@ -170,18 +170,14 @@ appropriate." (unless (package-installed-p name) (user-error "%s isn't installed" name)) (when (doom-package-outdated-p name) - (let ((inhibit-message (not doom-debug-mode)) - quelpa-modified-p) + (let ((inhibit-message (not doom-debug-mode))) (pcase (doom-package-backend name) ('quelpa (let ((quelpa-upgrade-p t)) - (quelpa (assq name quelpa-cache)) - (setq quelpa-modified-p t))) + (quelpa (assq name quelpa-cache)))) ('elpa (doom-delete-package name t) - (doom-install-package name))) - (when quelpa-modified-p - (quelpa-save-cache))) + (doom-install-package name)))) (version-list-= (package-desc-version (cadr (assq name package-alist))) (package-desc-version (cadr (assq name package-archive-contents)))))) @@ -191,9 +187,8 @@ appropriate." (doom-initialize) (unless (package-installed-p name) (user-error "%s isn't installed" name)) - (let ((desc (cadr (assq name package-alist))) - (inhibit-message t)) - (package-delete desc force-p)) + (let ((inhibit-message (not doom-debug-mode))) + (package-delete (cadr (assq name package-alist)) force-p)) (not (package-installed-p name)))