From: Andreas Schwab <schwab@linux-m68k.org>
Date: Tue, 4 Dec 2012 21:18:37 +0000 (+0100)
Subject: * callproc.c (Fcall_process): Fix specpdl nesting for asynchronous
X-Git-Tag: emacs-24.3.90~173^2~9^2~65
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=396376f1aeb072d20f1a8271ee47620b2ba9c15b;p=emacs.git

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

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)