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

Don't try to update an ELPA package unless an update is available

Browse Source 
This fixes a bug where trying to update an ELPA package when an update
wasn't available would throw an error.
This commit is contained in:
Ryan C. Thompson 2012-03-12 16:28:53 -07:00
parent e10d6dd3e0
commit 03f95b8ef2
1 changed files with 14 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -103,15 +103,27 @@ the recipe, then return nil."
(el-get-elpa-symlink-package package))
(funcall post-install-fun package))
(defun el-get-elpa-update-available-p (package)
"Returns t if PACKAGE has an update available in ELPA."
(let ((installed-version
(package-desc-vers (assq pkg package-alist)))
(available-version
(package-desc-vers (assq pkg package-archive-contents))))
(version-list-< installed-version available-version)))
(defun el-get-elpa-update (package url post-update-fun)
"Ask elpa to update given PACKAGE."
(el-get-elpa-remove package url nil)
(package-refresh-contents)
(package-install (el-get-as-symbol package))
(when (el-get-elpa-update-available-p package)
(el-get-elpa-remove package url nil)
(package-install (el-get-as-symbol package))
(funcall post-update-fun package))
(defun el-get-elpa-remove (package url post-remove-fun)
"Remove the right directory where ELPA did install the package."
;; This just removes the symlink from el-get's directory. Look in
;; `el-get-elpa-post-remove' for the piece that actually removes the
;; package.
(el-get-rmdir package url post-remove-fun))
(defun el-get-elpa-post-remove (package)