Mercurial > emacs
comparison src/process.c @ 5561:fd7524d61a8d
(read_process_output): Supply second arg to unbind_to.
(exec_sentinel): Likewise.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 11 Jan 1994 05:49:41 +0000 |
| parents | 36d2fd17f833 |
| children | 466bc8ef8e21 |
comparison
equal
deleted
inserted
replaced
| 5560:a9924c6db247 | 5561:fd7524d61a8d |
|---|---|
| 2114 Vdeactivate_mark = odeactivate; | 2114 Vdeactivate_mark = odeactivate; |
| 2115 | 2115 |
| 2116 #ifdef VMS | 2116 #ifdef VMS |
| 2117 start_vms_process_read (vs); | 2117 start_vms_process_read (vs); |
| 2118 #endif | 2118 #endif |
| 2119 unbind_to (count); | 2119 unbind_to (count, Qnil); |
| 2120 return nchars; | 2120 return nchars; |
| 2121 } | 2121 } |
| 2122 | 2122 |
| 2123 /* If no filter, write into buffer if it isn't dead. */ | 2123 /* If no filter, write into buffer if it isn't dead. */ |
| 2124 if (!NILP (p->buffer) && !NILP (XBUFFER (p->buffer)->name)) | 2124 if (!NILP (p->buffer) && !NILP (XBUFFER (p->buffer)->name)) |
| 2880 p->sentinel = Qnil; | 2880 p->sentinel = Qnil; |
| 2881 record_unwind_protect (exec_sentinel_unwind, Fcons (proc, sentinel)); | 2881 record_unwind_protect (exec_sentinel_unwind, Fcons (proc, sentinel)); |
| 2882 /* Inhibit quit so that random quits don't screw up a running filter. */ | 2882 /* Inhibit quit so that random quits don't screw up a running filter. */ |
| 2883 specbind (Qinhibit_quit, Qt); | 2883 specbind (Qinhibit_quit, Qt); |
| 2884 call2 (sentinel, proc, reason); | 2884 call2 (sentinel, proc, reason); |
| 2885 unbind_to (count); | 2885 unbind_to (count, Qnil); |
| 2886 } | 2886 } |
| 2887 | 2887 |
| 2888 /* Report all recent events of a change in process status | 2888 /* Report all recent events of a change in process status |
| 2889 (either run the sentinel or output a message). | 2889 (either run the sentinel or output a message). |
| 2890 This is done while Emacs is waiting for keyboard input. */ | 2890 This is done while Emacs is waiting for keyboard input. */ |