shell-quote-argument -l full pathname in `el-get-byte-compile-process'

This commit is contained in:
Dimitri Fontaine 2011-08-16 16:35:09 +02:00
parent 9dbd25f1c5
commit 879d9d89d3

View File

@ -2308,8 +2308,9 @@ it."
(let ((bytecomp-command
(list el-get-emacs
"-Q" "-batch" "-f" "toggle-debug-on-error"
"-l" (file-name-sans-extension
(symbol-file 'el-get-byte-compile-from-stdin 'defun))
"-l" (shell-quote-argument
(file-name-sans-extension
(symbol-file 'el-get-byte-compile-from-stdin 'defun)))
"-f" "el-get-byte-compile-from-stdin")))
`(:command-name "byte-compile"
:buffer-name ,buffer