Ce serveur Gitlab sera éteint le 30 juin 2020, pensez à migrer vos projets vers les serveurs gitlab-research.centralesupelec.fr et gitlab-student.centralesupelec.fr !

Commit df505851 authored by Dimitri Fontaine's avatar Dimitri Fontaine

Merge pull request #1300 from ruediger/elpa24_4

Fix elpa support for Emacs 24.4
parents 85d17266 0aaf7db4
......@@ -158,7 +158,8 @@ entry."
(delete-directory pdir 'recursive))
((file-exists-p pdir)
(delete-file pdir)))
(funcall post-remove-fun package)))
(when post-remove-fun
(funcall post-remove-fun package))))
;;
......
......@@ -119,11 +119,15 @@ the recipe, then return nil."
(defun el-get-elpa-update-available-p (package)
"Returns t if PACKAGE has an update available in ELPA."
(assert (el-get-package-is-installed package) nil
(sprintf "Cannot update non-installed ELPA package %s" package))
(let ((installed-version
(package-desc-vers (cdr (assq package package-alist))))
(available-version
(package-desc-vers (cdr (assq package package-archive-contents)))))
(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-version
(funcall pkg-version (cdr (assq package package-archive-contents)))))
(version-list-< installed-version available-version)))
(defun el-get-elpa-update (package url post-update-fun)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment