708 |
(eshell-parse-command (concat "*" command) |
(eshell-parse-command (concat "*" command) |
709 |
(eshell-stringify-list |
(eshell-stringify-list |
710 |
(eshell-flatten-list args)))) |
(eshell-flatten-list args)))) |
711 |
(let* ((compilation-process-setup-function |
(let* ((args (mapconcat 'identity |
|
(list 'lambda nil |
|
|
(list 'setq 'process-environment |
|
|
(list 'quote (eshell-copy-environment))))) |
|
|
(args (mapconcat 'identity |
|
712 |
(mapcar 'shell-quote-argument |
(mapcar 'shell-quote-argument |
713 |
(eshell-stringify-list |
(eshell-stringify-list |
714 |
(eshell-flatten-list args))) |
(eshell-flatten-list args))) |