Ce serveur Gitlab sera éteint le 30 juin 2020, pensez à migrer vos projets vers les serveurs gitlab-research.centralesupelec.fr et gitlab-student.centralesupelec.fr !

Commit 4ac20185 authored by Ryan C. Thompson's avatar Ryan C. Thompson

Pass code to eval via stdin instead of command-line

parent edc100fd
...@@ -115,20 +115,22 @@ newer, then compilation is skipped." ...@@ -115,20 +115,22 @@ newer, then compilation is skipped."
"return the 'el-get-start-process-list' entry to byte compile PACKAGE" "return the 'el-get-start-process-list' entry to byte compile PACKAGE"
(let* ((compile-expr (let* ((compile-expr
`(el-get-byte-compile-for-subprocess ',files)) `(el-get-byte-compile-for-subprocess ',files))
(load-path-args (files-to-load (el-get-all-symbol-files compile-expr))
(list "--eval" (format "%S" `(setq load-path ',(cons "." load-path))))) (full-expr
(load-file-args `(progn
(mapcan (lambda (f) (list "-l" f)) (setq load-path ,(cons "." load-path))
(el-get-all-symbol-files compile-expr))) (mapc 'load ,files-to-load)
,compile-expr))
(subproc-code (prin1-to-string '(eval (read))))
(bytecomp-command (bytecomp-command
`(,el-get-emacs `(,el-get-emacs
"-Q" "-batch" "-f" "toggle-debug-on-error" "-Q" "-batch" "-f" "toggle-debug-on-error"
,@load-path-args ,@load-file-args "--eval" subproc-code)))
"--eval" ,(prin1-to-string compile-expr))))
`(:command-name "byte-compile" `(:command-name "byte-compile"
:buffer-name ,buffer :buffer-name ,buffer
:default-directory ,working-dir :default-directory ,working-dir
:shell t :shell t
:stdin ,full-expr
:sync ,sync :sync ,sync
:program ,(car bytecomp-command) :program ,(car bytecomp-command)
:args ,(cdr bytecomp-command) :args ,(cdr bytecomp-command)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment