From 396376f1aeb072d20f1a8271ee47620b2ba9c15b Mon Sep 17 00:00:00 2001
From: Andreas Schwab <schwab@linux-m68k.org>
Date: Tue, 4 Dec 2012 22:18:37 +0100
Subject: [PATCH] * callproc.c (Fcall_process): Fix specpdl nesting for
 asynchronous processes.

---
 src/ChangeLog  | 5 +++++
 src/callproc.c | 2 +-
 2 files changed, 6 insertions(+), 1 deletion(-)

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)
-- 
2.11.4.GIT