mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-14 09:39:42 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Richard M. Stallman 2005-08-20 21:47:40 +00:00
parent 93ef35e404
commit 32993501da
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/progmodes/grep.el
View File

@ -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)