# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1117839741 0
# Node ID 5b94f4660d9d9ebc56140abd4cd6af7e042b0956
# Parent  c79b5010b65431bc14646df5db56475c8c93d6c2
(unbind_to): Preserve value of Vquit_flag.

diff -r c79b5010b654 -r 5b94f4660d9d src/eval.c
--- a/src/eval.c	Fri Jun 03 23:02:03 2005 +0000
+++ b/src/eval.c	Fri Jun 03 23:02:21 2005 +0000
@@ -3130,10 +3130,10 @@
      int count;
      Lisp_Object value;
 {
-  int quitf = !NILP (Vquit_flag);
-  struct gcpro gcpro1;
-
-  GCPRO1 (value);
+  Lisp_Object quitf = Vquit_flag;
+  struct gcpro gcpro1, gcpro2;
+
+  GCPRO2 (value, quitf);
   Vquit_flag = Qnil;
 
   while (specpdl_ptr != specpdl + count)
@@ -3182,8 +3182,8 @@
 	}
     }
 
-  if (NILP (Vquit_flag) && quitf)
-    Vquit_flag = Qt;
+  if (NILP (Vquit_flag) && !NILP (quitf))
+    Vquit_flag = quitf;
 
   UNGCPRO;
   return value;