Mercurial > emacs
changeset 4870:c53deda13fa9
(status_notify): Don't read from process if filter is t.
(Fset_process_filter): Set or clear bit in input_wait_mask when nec.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 22 Oct 1993 01:16:04 +0000 |
| parents | a3a72fce1143 |
| children | 30a614eb52f7 |
| files | src/process.c |
| diffstat | 1 files changed, 7 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/src/process.c Thu Oct 21 21:25:05 1993 +0000 +++ b/src/process.c Fri Oct 22 01:16:04 1993 +0000 @@ -678,6 +678,7 @@ DEFUN ("set-process-filter", Fset_process_filter, Sset_process_filter, 2, 2, 0, "Give PROCESS the filter function FILTER; nil means no filter.\n\ +t means stop accepting output from the process.\n\ When a process has a filter, each time it does output\n\ the entire string of output is passed to the filter.\n\ The filter gets two arguments: the process and the string of output.\n\ @@ -686,6 +687,10 @@ register Lisp_Object proc, filter; { CHECK_PROCESS (proc, 0); + if (EQ (filter, Qt)) + FD_CLR (XPROCESS (proc)->infd, &input_wait_mask); + else if (EQ (XPROCESS (proc)->filter, Qt)) + FD_SET (XPROCESS (proc)->infd, &input_wait_mask); XPROCESS (proc)->filter = filter; return filter; } @@ -2849,7 +2854,8 @@ /* If process is still active, read any output that remains. */ if (XFASTINT (p->infd)) - while (read_process_output (proc, XFASTINT (p->infd)) > 0); + while (! EQ (p->filter, Qt) + && read_process_output (proc, XFASTINT (p->infd)) > 0); buffer = p->buffer;