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

Provide 'el-get-byte-compile customization option, allowing users to prevent byte-code compilation

Browse Source 
Signed-off-by: Dimitri Fontaine <dim@tapoueh.org>
This commit is contained in:
Steve Purcell 2010-10-08 14:00:38 +01:00 committed by Dimitri Fontaine
parent c5d2f813b6
commit 96770947c5
1 changed files with 23 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
el-get.el
View File

@ -102,6 +102,12 @@ It will get called with the package as first argument."
:group 'el-get
:type 'hook)
(defcustom el-get-byte-compile t
"Whether or not to byte-compile packages. Can be used to
disable byte-compilation globally."
:group 'el-get
:type 'boolean)
(defvar el-get-git-clone-hook nil "Hook run after git clone.")
(defvar el-get-git-svn-clone-hook nil "Hook run after git svn clone.")
(defvar el-get-bzr-branch-hook nil "Hook run after bzr branch.")
@ -1234,22 +1240,23 @@ entry."
package
`(,(format "%s %s.info dir" el-get-install-info infofile)) infodir-rel t))))
;; byte-compile either :compile entries or anything in load-path
(let ((byte-compile-warnings nil))
(if compile
(dolist (path (if (listp compile) compile (list compile)))
(let ((fp (concat (file-name-as-directory pdir) path)))
;; we accept directories, files and file name regexp
(cond ((file-directory-p fp) (byte-recompile-directory fp 0))
((file-exists-p fp) (el-get-byte-compile-file pdir path))
(t ; regexp case
(dolist (file (directory-files pdir nil path))
(el-get-byte-compile-file pdir file))))))
;; Compile .el files in that directory --- unless we have build instructions
(unless (or nocomp (el-get-build-commands package))
(dolist (dir el-path)
(byte-recompile-directory
(expand-file-name (concat (file-name-as-directory pdir) dir)) 0)))))
(when el-get-byte-compile
;; byte-compile either :compile entries or anything in load-path
(let ((byte-compile-warnings nil))
(if compile
(dolist (path (if (listp compile) compile (list compile)))
(let ((fp (concat (file-name-as-directory pdir) path)))
;; we accept directories, files and file name regexp
(cond ((file-directory-p fp) (byte-recompile-directory fp 0))
((file-exists-p fp) (el-get-byte-compile-file pdir path))
(t ; regexp case
(dolist (file (directory-files pdir nil path))
(el-get-byte-compile-file pdir file))))))
;; Compile .el files in that directory --- unless we have build instructions
(unless (el-get-build-commands package)
(dolist (dir el-path)
(byte-recompile-directory
(expand-file-name (concat (file-name-as-directory pdir) dir)) 0))))))
;; loads
(when loads