* src/process.c (start_process_unwind): Treat any pid <= 0, except -2,

as an error, not just -1.
For example, make_process inits the pid to 0.

Fixes: debbugs:10217

diff --git a/src/ChangeLog b/src/ChangeLog
index e22d6cb8cfbc6488a62969afa513e9ff4cedff22..30a504c4bda510e210ee9c879586587b5af0b375 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2011-12-06  Glenn Morris  <rgm@gnu.org>
+
+       * process.c (start_process_unwind): Treat any pid <= 0, except -2,
+       as an error, not just -1.  (Bug#10217)
+
 2011-12-05  Chong Yidong  <cyd@gnu.org>
 
        * keyboard.c (process_special_events): New function.

diff --git a/src/process.c b/src/process.c
index 05c4be27550e2533f330eb60bd0e939f09003042..4b0f90b58afa436245791273c23b6a396d347755 100644 (file)
--- a/src/process.c
+++ b/src/process.c
@@ -1521,8 +1521,9 @@ start_process_unwind (Lisp_Object proc)
   if (!PROCESSP (proc))
     abort ();
 
-  /* Was PROC started successfully?  */
-  if (XPROCESS (proc)->pid == -1)
+  /* Was PROC started successfully?
+     -2 is used for a pty with no process, eg for gdb.  */
+  if (XPROCESS (proc)->pid <= 0 && XPROCESS (proc)->pid != -2)
     remove_process (proc);
 
   return Qnil;