Mercurial > emacs

comparison lisp/eshell/em-unix.el @ 57604:c72da3dd9a8d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(eshell-grep): Don't bind compilation-process-setup-function.
author Richard M. Stallman <rms@gnu.org>
date Tue, 19 Oct 2004 16:53:23 +0000
parents f243dc772a99
children 7e9025771254 f3ec05478165
comparison
equal deleted inserted replaced
57603:bdfa227d18a8 57604:c72da3dd9a8d
706 (not eshell-in-subcommand-p)))) 706 (not eshell-in-subcommand-p))))
707 (throw 'eshell-replace-command 707 (throw 'eshell-replace-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)))
719 " ")) 715 " "))
720 (cmd (progn 716 (cmd (progn