mirror of
https://github.com/dimitri/el-get.git
synced 2024-09-29 13:08:51 +08:00
Provide 'el-get-byte-compile customization option, allowing users to prevent byte-code compilation
Signed-off-by: Dimitri Fontaine <dim@tapoueh.org>
This commit is contained in:
parent
c5d2f813b6
commit
96770947c5
11
el-get.el
11
el-get.el
|
@ -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,6 +1240,7 @@ entry."
|
|||
package
|
||||
`(,(format "%s %s.info dir" el-get-install-info infofile)) infodir-rel t))))
|
||||
|
||||
(when el-get-byte-compile
|
||||
;; byte-compile either :compile entries or anything in load-path
|
||||
(let ((byte-compile-warnings nil))
|
||||
(if compile
|
||||
|
@ -1246,10 +1253,10 @@ entry."
|
|||
(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))
|
||||
(unless (el-get-build-commands package)
|
||||
(dolist (dir el-path)
|
||||
(byte-recompile-directory
|
||||
(expand-file-name (concat (file-name-as-directory pdir) dir)) 0)))))
|
||||
(expand-file-name (concat (file-name-as-directory pdir) dir)) 0))))))
|
||||
|
||||
;; loads
|
||||
(when loads
|
||||
|
|
Loading…
Reference in New Issue
Block a user