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

Turn off nosave-p flag on package-delete

Browse source 
Prevents false positives when updating packages
This commit is contained in:
Henrik Lissner 2017-05-15 22:35:57 +02:00
parent e98a65b211
commit 1b253f5bad
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

@ -178,7 +178,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 t t) (doom-delete-package name t)
(doom-install-package name))) (doom-install-package name)))
(when quelpa-modified-p (when quelpa-modified-p
(quelpa-save-cache))) (quelpa-save-cache)))
@ -186,14 +186,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 nosave-p) (defun doom-delete-package (name &optional force-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 nosave-p)) (package-delete desc force-p))
(not (package-installed-p name))) (not (package-installed-p name)))