gitback/el-get
1
0
Fork 0
mirror of https://github.com/dimitri/el-get.git synced 2024-09-29 13:08:51 +08:00
Code Issues Packages Projects Releases Wiki Activity

handle Emacs 24.4 package.el

Browse Source 
Packages now have a list of package descriptors
package-desc-doc has been renamed to package-desc-summary
This commit is contained in:
Noam Postavsky 2014-03-23 10:12:34 -04:00
parent 7277a3a3c1
commit 59c75ce9d6
1 changed files with 12 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
methods/el-get-elpa.el
View File

@ -123,19 +123,19 @@ the recipe, then return nil."
"Returns t if PACKAGE has an update available in ELPA."
(assert (el-get-package-is-installed package) nil
(format "Cannot update non-installed ELPA package %s" package))
(let* ((pkg-version
(if (fboundp 'package-desc-version) ;; new in Emacs 24.4
#'(lambda (pkg) (package-desc-version (car pkg)))
#'package-desc-vers))
(installed-version
(funcall pkg-version (cdr (assq package package-alist))))
(available-package (cdr (assq package package-archive-contents))))
(let ((pkg-version
(if (fboundp 'package-desc-version) ;; new in Emacs 24.4
#'package-desc-version #'package-desc-vers))
(installed-version
(car (el-get-as-list (cdr (assq package package-alist)))))
(available-package
(car (el-get-as-list (cdr (assq package package-archive-contents))))))
(when available-package
;; `available-package' can be empty in Emacs > 24.3 when it is
;; already installed and the version is the same as the latest
;; one available. For discussion see also:
;; https://github.com/dimitri/el-get/issues/1637
(version-list-< installed-version
(version-list-< (funcall pkg-version installed-version)
(funcall pkg-version available-package)))))
(defvar el-get-elpa-do-refresh t
@ -226,8 +226,10 @@ DO-NOT-UPDATE will not update the package archive contents before running this."
(mapc (lambda (pkg)
(let* ((package (format "%s" (car pkg)))
(pkg-desc (cdr pkg))
(description (package-desc-doc pkg-desc))
(pkg-desc (car (el-get-as-list (cdr pkg))))
(get-summary (if (fboundp #'package-desc-summary)
#'package-desc-summary #'package-desc-doc))
(description (funcall get-summary pkg-desc))
(pkg-deps (package-desc-reqs pkg-desc))
(depends (remq 'emacs (mapcar #'car pkg-deps)))
(emacs-dep (assq 'emacs pkg-deps))