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."
"return the 'el-get-start-process-list' entry to byte compile PACKAGE"
(let* ((compile-expr
`(el-get-byte-compile-for-subprocess ',files))
(load-path-args
(list "--eval" (format "%S" `(setq load-path ',(cons "." load-path)))))
(load-file-args
(mapcan (lambda (f) (list "-l" f))
(el-get-all-symbol-files compile-expr)))
(files-to-load (el-get-all-symbol-files compile-expr))
(full-expr
`(progn
(setq load-path ,(cons "." load-path))
(mapc 'load ,files-to-load)
,compile-expr))
(subproc-code (prin1-to-string '(eval (read))))
(bytecomp-command
`(,el-get-emacs
"-Q" "-batch" "-f" "toggle-debug-on-error"
,@load-path-args ,@load-file-args
"--eval" ,(prin1-to-string compile-expr))))
"--eval" subproc-code)))
`(:command-name "byte-compile"
:buffer-name ,buffer
:default-directory ,working-dir
:shell t
:stdin ,full-expr
:sync ,sync
:program ,(car 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