* callproc.c (Fcall_process): Fix specpdl nesting for asynchronous

processes.

2 files changed, 6 insertions, 1 deletions

diff --git a/src/ChangeLog b/src/ChangeLog
index 37c8647d65f..ef67df9d792 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2012-12-04  Andreas Schwab  <schwab@linux-m68k.org>
+
+        * callproc.c (Fcall_process): Fix specpdl nesting for asynchronous
+        processes.
+
 2012-12-04  Dmitry Antipov  <dmantipov@yandex.ru>
 
         * lisp.h (Mouse_HLInfo): Remove set-but-unused mouse_face_image_state
diff --git a/src/callproc.c b/src/callproc.c
index 21c52d09e6b..2cc395428f8 100644
--- a/src/callproc.c
+++ b/src/callproc.c
@@ -685,7 +685,7 @@ usage: (call-process PROGRAM &optional INFILE BUFFER DISPLAY &rest ARGS)  */)
     {
       if (fd0 >= 0)
         emacs_close (fd0);
-      return Qnil;
+      return unbind_to (count, Qnil);
     }
 
 #if defined (MSDOS)