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

Fix get version of built-in package

Browse source
This commit is contained in:
syl20bnr 2015-02-03 00:57:55 -05:00
parent 4bb7e85e83
commit b8bfa7e1a3
1 changed files with 11 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
core/core-configuration-layer.el
View file

@ -559,18 +559,21 @@ deleted safely."
(defun configuration-layer//get-package-version (package)
"Return the version string for PACKAGE."
(let ((pkg (or (assq package package-alist)
(assq package package--builtins))))
(cond
((version< emacs-version "24.3.50") (package-version-join (aref (cdr pkg) 0)))
(t (package-version-join (package-desc-version (cadr pkg)))))))
(let ((pkg (assq package package-alist)))
(when pkg
(cond
((version< emacs-version "24.3.50")
(package-version-join (aref (cdr pkg) 0)))
(t (package-version-join (package-desc-version (cadr pkg))))))))
(defun configuration-layer//get-latest-package-version (package)
"Return the version string for PACKAGE."
(let ((pkg (assq package package-archive-contents)))
(cond
((version< emacs-version "24.3.50") (package-version-join (aref (cdr pkg) 0)))
(t (package-version-join (package-desc-version (cadr pkg)))))))
(when pkg
(cond
((version< emacs-version "24.3.50")
(package-version-join (aref (cdr pkg) 0)))
(t (package-version-join (package-desc-version (cadr pkg))))))))
(defun configuration-layer//package-delete (package)
"Delete the passed PACKAGE."