(grep): Bind compilation-disable-input to t.

32993501 · Richard M. Stallman · 93ef35e4 · 32993501
Commit 32993501 authored Aug 20, 2005 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 1 deletion

lisp/progmodes/grep.el lisp/progmodes/grep.el +2 -1

No files found.
--- 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)