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

el-get must honor `el-get-byte-compile' even for init files

Browse Source 
Signed-off-by: Damien Cassou <damien.cassou@gmail.com>
This commit is contained in:
Damien Cassou 2012-07-29 13:54:18 +02:00
parent db6a5596fc
commit 23d2ffcbf9
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
el-get-recipes.el
View File

@ -65,11 +65,13 @@ compiled version."
(let* ((init-file-name (format "init-%s.el" package)) (let* ((init-file-name (format "init-%s.el" package))
(package-init-file (package-init-file
(expand-file-name init-file-name el-get-user-package-directory)) (expand-file-name init-file-name el-get-user-package-directory))
(compiled-init-file (concat (file-name-sans-extension package-init-file) ".elc"))) (file-name-no-extension (file-name-sans-extension package-init-file))
(compiled-init-file (concat file-name-no-extension ".elc")))
(when (file-exists-p package-init-file) (when (file-exists-p package-init-file)
(el-get-byte-compile-file package-init-file) (when el-get-byte-compile
(el-get-verbose-message "el-get: load %S" compiled-init-file) (el-get-byte-compile-file package-init-file))
(load compiled-init-file 'noerror))))) (el-get-verbose-message "el-get: load %S" file-name-no-extension)
(load file-name-no-extension 'noerror)))))
(defun el-get-recipe-dirs () (defun el-get-recipe-dirs ()
"Return the elements of el-get-recipe-path that actually exist. "Return the elements of el-get-recipe-path that actually exist.