diff options
| author | Richard M. Stallman | 2004-10-19 16:53:23 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2004-10-19 16:53:23 +0000 |
| commit | fcb5aa97ed3b6597b0a64b31ecefbd94a34d3393 (patch) | |
| tree | 127ef2ea8db5a885a727ccaa0664c24ed66484f1 | |
| parent | c64e2e679f89a519052f8378238be6147d27b91f (diff) | |
| download | emacs-fcb5aa97ed3b6597b0a64b31ecefbd94a34d3393.tar.gz emacs-fcb5aa97ed3b6597b0a64b31ecefbd94a34d3393.zip | |
(eshell-grep): Don't bind compilation-process-setup-function.
| -rw-r--r-- | lisp/eshell/em-unix.el | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/lisp/eshell/em-unix.el b/lisp/eshell/em-unix.el index 43d3c9c4e5e..ce30cec6604 100644 --- a/lisp/eshell/em-unix.el +++ b/lisp/eshell/em-unix.el | |||
| @@ -708,11 +708,7 @@ external command." | |||
| 708 | (eshell-parse-command (concat "*" command) | 708 | (eshell-parse-command (concat "*" command) |
| 709 | (eshell-stringify-list | 709 | (eshell-stringify-list |
| 710 | (eshell-flatten-list args)))) | 710 | (eshell-flatten-list args)))) |
| 711 | (let* ((compilation-process-setup-function | 711 | (let* ((args (mapconcat 'identity |
| 712 | (list 'lambda nil | ||
| 713 | (list 'setq 'process-environment | ||
| 714 | (list 'quote (eshell-copy-environment))))) | ||
| 715 | (args (mapconcat 'identity | ||
| 716 | (mapcar 'shell-quote-argument | 712 | (mapcar 'shell-quote-argument |
| 717 | (eshell-stringify-list | 713 | (eshell-stringify-list |
| 718 | (eshell-flatten-list args))) | 714 | (eshell-flatten-list args))) |