diff options
| author | Richard M. Stallman <rms@gnu.org> | 2005-08-20 21:47:40 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2005-08-20 21:47:40 +0000 |
| commit | 32993501da2a61b739c6c65fb42f16e3d3554272 (patch) | |
| tree | e0a5dca7a14e02ec2f88f4493bf097a7e3b9c62a /lisp | |
| parent | 93ef35e4042fcfc7ca31c1593ae9a3d46a0e306e (diff) | |
| download | emacs-32993501da2a61b739c6c65fb42f16e3d3554272.tar.gz emacs-32993501da2a61b739c6c65fb42f16e3d3554272.tar.bz2 emacs-32993501da2a61b739c6c65fb42f16e3d3554272.zip | |
(grep): Bind compilation-disable-input to t.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/progmodes/grep.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/progmodes/grep.el b/lisp/progmodes/grep.el index d6387d39017..5c3ce5ec34c 100644 --- a/lisp/progmodes/grep.el +++ b/lisp/progmodes/grep.el @@ -517,7 +517,8 @@ temporarily highlight in visited source lines." ;; Setting process-setup-function makes exit-message-function work ;; even when async processes aren't supported. - (let ((compilation-process-setup-function 'grep-process-setup)) + (let ((compilation-process-setup-function 'grep-process-setup) + (compilation-disable-input t)) (compilation-start (if (and grep-use-null-device null-device) (concat command-args " " null-device) command-args) |