mirror of
https://github.com/dimitri/el-get.git
synced 2024-09-29 04:58:53 +08:00
Fewer lambdas means easier debugging
This commit is contained in:
parent
7338447b40
commit
294af529ff
13
el-get.el
13
el-get.el
|
@ -2810,6 +2810,11 @@ called by `el-get' (usually at startup) for each installed package."
|
|||
(debug error
|
||||
(el-get-installation-failed package err))))
|
||||
|
||||
(defun el-get-post-build (package)
|
||||
(el-get-invalidate-autoloads package)
|
||||
(el-get-init package)
|
||||
(el-get-save-package-status package "installed"))
|
||||
|
||||
(defun el-get-post-install (package)
|
||||
"Post install PACKAGE. This will get run by a sentinel."
|
||||
(let* ((hooks (el-get-method (el-get-package-type package) :install-hook))
|
||||
|
@ -2818,12 +2823,8 @@ called by `el-get' (usually at startup) for each installed package."
|
|||
;; post-install is the right place to run install-hook
|
||||
(run-hook-with-args hooks package)
|
||||
|
||||
(let ((wrap-up `(lambda (package)
|
||||
(el-get-invalidate-autoloads package)
|
||||
(el-get-init package)
|
||||
(el-get-save-package-status package "installed"))))
|
||||
(el-get-build package commands nil el-get-default-process-sync wrap-up)))
|
||||
|
||||
(el-get-build package commands nil
|
||||
el-get-default-process-sync 'el-get-post-build))
|
||||
(run-hook-with-args 'el-get-post-install-hooks package))
|
||||
|
||||
(defun el-get-do-install (package)
|
||||
|
|
Loading…
Reference in New Issue
Block a user