Mercurial > emacs
comparison src/process.c @ 109305:33b59bdb0ac4
Don't use `subprocesses' in msdos.c.
msdos.c (syms_of_msdos) <delete-exited-processes>: Remove DEFVAR.
(delete_exited_processes): Don't define.
process.c (syms_of_process) <delete-exited-processes>: Define
even if !subprocesses.
(delete_exited_processes): Ditto.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Sun, 11 Jul 2010 08:55:06 +0300 |
| parents | ff3561236472 |
| children | 108c259501da |
comparison
equal
deleted
inserted
replaced
| 109304:2749a14ed325 | 109305:33b59bdb0ac4 |
|---|---|
| 308 | 308 |
| 309 /* Non-zero if keyboard input is on hold, zero otherwise. */ | 309 /* Non-zero if keyboard input is on hold, zero otherwise. */ |
| 310 | 310 |
| 311 static int kbd_is_on_hold; | 311 static int kbd_is_on_hold; |
| 312 | 312 |
| 313 /* Nonzero means delete a process right away if it exits. */ | |
| 314 static int delete_exited_processes; | |
| 315 | |
| 313 #ifdef subprocesses | 316 #ifdef subprocesses |
| 314 | 317 |
| 315 /* Mask of bits indicating the descriptors that we wait for input on. */ | 318 /* Mask of bits indicating the descriptors that we wait for input on. */ |
| 316 | 319 |
| 317 static SELECT_TYPE input_wait_mask; | 320 static SELECT_TYPE input_wait_mask; |
| 349 /* The largest descriptor currently in use for keyboard input. */ | 352 /* The largest descriptor currently in use for keyboard input. */ |
| 350 static int max_keyboard_desc; | 353 static int max_keyboard_desc; |
| 351 | 354 |
| 352 /* The largest descriptor currently in use for gpm mouse input. */ | 355 /* The largest descriptor currently in use for gpm mouse input. */ |
| 353 static int max_gpm_desc; | 356 static int max_gpm_desc; |
| 354 | |
| 355 /* Nonzero means delete a process right away if it exits. */ | |
| 356 static int delete_exited_processes; | |
| 357 | 357 |
| 358 /* Indexed by descriptor, gives the process (if any) for that descriptor */ | 358 /* Indexed by descriptor, gives the process (if any) for that descriptor */ |
| 359 Lisp_Object chan_process[MAXDESC]; | 359 Lisp_Object chan_process[MAXDESC]; |
| 360 | 360 |
| 361 /* Alist of elements (NAME . PROCESS) */ | 361 /* Alist of elements (NAME . PROCESS) */ |
| 7665 Qpmem = intern_c_string ("pmem"); | 7665 Qpmem = intern_c_string ("pmem"); |
| 7666 staticpro (&Qpmem); | 7666 staticpro (&Qpmem); |
| 7667 Qargs = intern_c_string ("args"); | 7667 Qargs = intern_c_string ("args"); |
| 7668 staticpro (&Qargs); | 7668 staticpro (&Qargs); |
| 7669 | 7669 |
| 7670 #ifdef subprocesses | |
| 7671 DEFVAR_BOOL ("delete-exited-processes", &delete_exited_processes, | 7670 DEFVAR_BOOL ("delete-exited-processes", &delete_exited_processes, |
| 7672 doc: /* *Non-nil means delete processes immediately when they exit. | 7671 doc: /* *Non-nil means delete processes immediately when they exit. |
| 7673 A value of nil means don't delete them until `list-processes' is run. */); | 7672 A value of nil means don't delete them until `list-processes' is run. */); |
| 7674 | 7673 |
| 7675 delete_exited_processes = 1; | 7674 delete_exited_processes = 1; |
| 7676 | 7675 |
| 7676 #ifdef subprocesses | |
| 7677 DEFVAR_LISP ("process-connection-type", &Vprocess_connection_type, | 7677 DEFVAR_LISP ("process-connection-type", &Vprocess_connection_type, |
| 7678 doc: /* Control type of device used to communicate with subprocesses. | 7678 doc: /* Control type of device used to communicate with subprocesses. |
| 7679 Values are nil to use a pipe, or t or `pty' to use a pty. | 7679 Values are nil to use a pipe, or t or `pty' to use a pty. |
| 7680 The value has no effect if the system has no ptys or if all ptys are busy: | 7680 The value has no effect if the system has no ptys or if all ptys are busy: |
| 7681 then a pipe is used in any case. | 7681 then a pipe is used in any case. |