emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Fix package updater unable-to-remove error

Browse source
This commit is contained in:
Henrik Lissner 2017-05-15 11:09:44 +02:00
parent 84525b022d
commit 7f6c38fcb6
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
core/autoload/packages.el
View file

@ -177,7 +177,7 @@ appropriate."
(quelpa (assq name quelpa-cache)) (quelpa (assq name quelpa-cache))
(setq quelpa-modified-p t))) (setq quelpa-modified-p t)))
('elpa ('elpa
(doom-delete-package name) (doom-delete-package name t t)
(doom-install-package name))) (doom-install-package name)))
(when quelpa-modified-p (when quelpa-modified-p
(quelpa-save-cache))) (quelpa-save-cache)))
@ -185,14 +185,14 @@ appropriate."
(package-desc-version (cadr (assq name package-alist))) (package-desc-version (cadr (assq name package-alist)))
(package-desc-version (cadr (assq name package-archive-contents)))))) (package-desc-version (cadr (assq name package-archive-contents))))))
(defun doom-delete-package (name &optional force-p) (defun doom-delete-package (name &optional force-p nosave-p)
"Uninstalls package NAME if it exists, and clears it from `quelpa-cache'." "Uninstalls package NAME if it exists, and clears it from `quelpa-cache'."
(doom-initialize) (doom-initialize)
(unless (package-installed-p name) (unless (package-installed-p name)
(user-error "%s isn't installed" name)) (user-error "%s isn't installed" name))
(let ((desc (cadr (assq name package-alist))) (let ((desc (cadr (assq name package-alist)))
(inhibit-message t)) (inhibit-message t))
(package-delete desc force-p)) (package-delete desc force-p nosave-p))
(not (package-installed-p name))) (not (package-installed-p name)))