From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 6 Aug 1993 22:44:00 +0000 (+0000)
Subject: (unwind_to_catch): Call set_poll_suppress_count.
X-Git-Tag: emacs-19.34~11377
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1cdc315501d606c9fff16393e6e125779d45483a;p=emacs.git

(unwind_to_catch): Call set_poll_suppress_count.
---

diff --git a/src/eval.c b/src/eval.c
index cbd73a76d0c..0a5998bd989 100644
--- a/src/eval.c
+++ b/src/eval.c
@@ -913,10 +913,7 @@ unwind_to_catch (catch, value)
   catch->val = value;
 
   /* Restore the polling-suppression count.  */
-  if (catch->poll_suppress_count > poll_suppress_count)
-    abort ();
-  while (catch->poll_suppress_count < poll_suppress_count)
-    start_polling ();
+  set_poll_suppress_count (catch->poll_suppress_count);
 
   do
     {