From 3b1168eb70579263eb00f70b09bbe74a9ce5fd67 Mon Sep 17 00:00:00 2001 From: Dimitri Fontaine Date: Thu, 12 Aug 2010 14:40:15 +0200 Subject: [PATCH] Fix el-get http support to call post-install-fun after the async retrieval. --- el-get.el | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/el-get.el b/el-get.el index c819abf6..7be04cf1 100644 --- a/el-get.el +++ b/el-get.el @@ -626,22 +626,24 @@ passing it the the callback function nonetheless." (re-search-forward "^$" nil 'move) (forward-char) (delete-region (point-min) (point)) - (write-file dest))) + (write-file dest)) + (funcall post-install-fun package)) (defun el-get-http-install (package url post-install-fun) "Dowload a single-file package over HTTP " (let ((pdir (el-get-package-directory package))) (unless (file-directory-p pdir) (make-directory pdir)) - (url-retrieve url 'el-get-http-retrieve-callback `(,package))) - (funcall post-install-fun package)) + (url-retrieve + url 'el-get-http-retrieve-callback `(,package ,post-install-fun)))) ;; ;; Common support bits ;; -(defun el-get-rmdir (package url) +(defun el-get-rmdir (package url post-remove-fun) "Just rm -rf the package directory. Follow symlinks." - (dired-delete-file (el-get-package-directory package) 'always)) + (dired-delete-file (el-get-package-directory package) 'always) + (funcall post-remove-fun package)) (defun el-get-build (package commands &optional subdir) "run each command from the package directory"