TakeV
/
spacemacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix error when attempting to delete an unknown package

This commit is contained in:
syl20bnr 2015-02-10 21:57:14 -05:00
parent 2efc66286c
commit 3775115cf4
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
core/core-configuration-layer.el
View File

@ -722,7 +722,8 @@ deleted safely."
(defun configuration-layer//get-latest-package-version (pkg)
"Return the versio list for PKG."
(let ((version-string (configuration-layer//get-latest-package-version-string pkg)))
(let ((version-string
(configuration-layer//get-latest-package-version-string pkg)))
(unless (string-empty-p version-string)
(version-to-list version-string))))
@ -730,9 +731,10 @@ deleted safely."
"Delete the passed PKG."
(cond
((version< emacs-version "24.3.50")
(package-delete (symbol-name pkg)
(configuration-layer//get-package-version-string pkg)))
(t (package-delete (cadr (assq pkg package-alist))))))
(let ((v (configuration-layer//get-package-version-string pkg)))
(when v (package-delete (symbol-name pkg) v))))
(t (let ((p (cadr (assq pkg package-alist))))
(when p (package-delete p))))))
(defun configuration-layer/delete-orphan-packages ()
"Delete all the orphan packages."