From: Richard M. Stallman Date: Sat, 20 Aug 2005 21:47:40 +0000 (+0000) Subject: (grep): Bind compilation-disable-input to t. X-Git-Tag: emacs-pretest-22.0.90~7508 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=32993501da2a61b739c6c65fb42f16e3d3554272;p=emacs.git (grep): Bind compilation-disable-input to t. --- 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)