Commit 462aa963 authored by Eli Zaretskii's avatar Eli Zaretskii
Browse files

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.
parent dce34635
2010-07-11 Eli Zaretskii <eliz@gnu.org>
* process.c (syms_of_process) <delete-exited-processes>: Define
even if !subprocesses.
(delete_exited_processes): Ditto.
* msdos.c (syms_of_msdos) <delete-exited-processes>: Remove DEFVAR.
(delete_exited_processes): Don't define.
2010-07-10 Chong Yidong <cyd@stupidchicken.com>
 
* frame.c (make_frame): Initialize menu_bar_lines and
......
......@@ -4701,13 +4701,6 @@ abort (void)
}
#endif
/* The following variables are required so that cus-start.el won't
complain about unbound variables. */
#ifndef subprocesses
/* Nonzero means delete a process right away if it exits (process.c). */
static int delete_exited_processes;
#endif
void
syms_of_msdos (void)
{
......@@ -4725,12 +4718,6 @@ syms_of_msdos (void)
This variable is used only by MS-DOS terminals. */);
Vdos_unsupported_char_glyph = make_number ('\177');
#endif
#ifndef subprocesses
DEFVAR_BOOL ("delete-exited-processes", &delete_exited_processes,
doc: /* *Non-nil means delete processes immediately when they exit.
A value of nil means don't delete them until `list-processes' is run. */);
delete_exited_processes = 0;
#endif
defsubr (&Srecent_doskeys);
......
......@@ -310,6 +310,9 @@ Lisp_Object QCname, QCtype;
static int kbd_is_on_hold;
/* Nonzero means delete a process right away if it exits. */
static int delete_exited_processes;
#ifdef subprocesses
/* Mask of bits indicating the descriptors that we wait for input on. */
......@@ -352,9 +355,6 @@ static int max_keyboard_desc;
/* The largest descriptor currently in use for gpm mouse input. */
static int max_gpm_desc;
/* Nonzero means delete a process right away if it exits. */
static int delete_exited_processes;
/* Indexed by descriptor, gives the process (if any) for that descriptor */
Lisp_Object chan_process[MAXDESC];
......@@ -7667,13 +7667,13 @@ syms_of_process (void)
Qargs = intern_c_string ("args");
staticpro (&Qargs);
#ifdef subprocesses
DEFVAR_BOOL ("delete-exited-processes", &delete_exited_processes,
doc: /* *Non-nil means delete processes immediately when they exit.
A value of nil means don't delete them until `list-processes' is run. */);
delete_exited_processes = 1;
#ifdef subprocesses
DEFVAR_LISP ("process-connection-type", &Vprocess_connection_type,
doc: /* Control type of device used to communicate with subprocesses.
Values are nil to use a pipe, or t or `pty' to use a pty.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment