(eshell-grep): Don't bind compilation-process-setup-function.

This commit is contained in:
Richard M. Stallman 2004-10-19 16:53:23 +00:00
parent c64e2e679f
commit fcb5aa97ed

View file

@ -708,11 +708,7 @@ external command."
(eshell-parse-command (concat "*" command)
(eshell-stringify-list
(eshell-flatten-list args))))
(let* ((compilation-process-setup-function
(list 'lambda nil
(list 'setq 'process-environment
(list 'quote (eshell-copy-environment)))))
(args (mapconcat 'identity
(let* ((args (mapconcat 'identity
(mapcar 'shell-quote-argument
(eshell-stringify-list
(eshell-flatten-list args)))