diff options
| author | Eli Zaretskii | 2010-07-11 08:55:06 +0300 |
|---|---|---|
| committer | Eli Zaretskii | 2010-07-11 08:55:06 +0300 |
| commit | 462aa963ef0f9d209b611fca59fa697486f5f833 (patch) | |
| tree | 66868a4fa5de93bbd60cff01beb2adf8d2539b22 /src/process.c | |
| parent | dce3463576bc49f60793cc4b8dc33c04c88ed256 (diff) | |
| download | emacs-462aa963ef0f9d209b611fca59fa697486f5f833.tar.gz emacs-462aa963ef0f9d209b611fca59fa697486f5f833.zip | |
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.
Diffstat (limited to 'src/process.c')
| -rw-r--r-- | src/process.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/process.c b/src/process.c index 55f46e2422d..f4cebbf777a 100644 --- a/src/process.c +++ b/src/process.c | |||
| @@ -310,6 +310,9 @@ Lisp_Object QCname, QCtype; | |||
| 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. */ |
| @@ -352,9 +355,6 @@ static int max_keyboard_desc; | |||
| 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 | 357 | ||
| 355 | /* Nonzero means delete a process right away if it exits. */ | ||
| 356 | static int delete_exited_processes; | ||
| 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 | ||
| @@ -7667,13 +7667,13 @@ syms_of_process (void) | |||
| 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. |