Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Make el-get-build respect the el-get-byte-compile custom option

  • Loading branch information...
commit d70c52138215cf0b37f7401c0ff3969ab80380ed 1 parent 26c249d
@purcell authored
Showing with 14 additions and 12 deletions.
  1. +14 −12 el-get.el
View
26 el-get.el
@@ -1707,8 +1707,9 @@ recursion.
(if sync
(progn
;; first byte-compile the package, with another "clean" emacs process
- (let ((build-cmd (format "%s %s" el-get-emacs bytecmdargs)))
- (message "%S" (shell-command-to-string build-cmd)))
+ (when el-get-byte-compile
+ (let ((build-cmd (format "%s %s" el-get-emacs bytecmdargs)))
+ (message "%S" (shell-command-to-string build-cmd))))
(dolist (c commands)
(let ((cmd
@@ -1740,16 +1741,17 @@ recursion.
"el-get could not build %s [%s]" package c))))
commands))
(full-process-list ;; includes byte compiling
- (append (list
- `(:command-name "byte-compile"
- :buffer-name ,buf
- :default-directory ,wdir
- :shell t
- :program ,el-get-emacs
- :args ,(split-string bytecmdargs)
- :message ,(format "el-get-build %s: byte-compile ok." package)
- :error ,(format
- "el-get could not byte-compile %s" package)))
+ (append (when el-get-byte-compile
+ (list
+ `(:command-name "byte-compile"
+ :buffer-name ,buf
+ :default-directory ,wdir
+ :shell t
+ :program ,el-get-emacs
+ :args ,(split-string bytecmdargs)
+ :message ,(format "el-get-build %s: byte-compile ok." package)
+ :error ,(format
+ "el-get could not byte-compile %s" package))))
process-list)))
(el-get-start-process-list package full-process-list post-build-fun)))))
Please sign in to comment.
Something went wrong with that request. Please try again.