From 23d2ffcbf9819a90405fe6ede5ecc4f1c99687ba Mon Sep 17 00:00:00 2001 From: Damien Cassou Date: Sun, 29 Jul 2012 13:54:18 +0200 Subject: [PATCH] el-get must honor `el-get-byte-compile' even for init files Signed-off-by: Damien Cassou --- el-get-recipes.el | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/el-get-recipes.el b/el-get-recipes.el index b5a68eb01..223e38284 100644 --- a/el-get-recipes.el +++ b/el-get-recipes.el @@ -65,11 +65,13 @@ compiled version." (let* ((init-file-name (format "init-%s.el" package)) (package-init-file (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) - (el-get-byte-compile-file package-init-file) - (el-get-verbose-message "el-get: load %S" compiled-init-file) - (load compiled-init-file 'noerror))))) + (when el-get-byte-compile + (el-get-byte-compile-file package-init-file)) + (el-get-verbose-message "el-get: load %S" file-name-no-extension) + (load file-name-no-extension 'noerror))))) (defun el-get-recipe-dirs () "Return the elements of el-get-recipe-path that actually exist.