# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1121016224 0
# Node ID 2cf2651a3a37bef9967938fb90b3f0beffc70ca8
# Parent  11c1d62f46ae67945f43fbd8dc1786dbc649936c
(edebug-enter): Call with-timeout-suspend and with-timeout-unsuspend.

diff -r 11c1d62f46ae -r 2cf2651a3a37 lisp/emacs-lisp/edebug.el
--- a/lisp/emacs-lisp/edebug.el	Sun Jul 10 17:20:02 2005 +0000
+++ b/lisp/emacs-lisp/edebug.el	Sun Jul 10 17:23:44 2005 +0000
@@ -2244,6 +2244,7 @@
 	    (max-specpdl-size (+ 200 max-specpdl-size))
 
 	    (debugger edebug-debugger)  ; only while edebug is active.
+	    (edebug-with-timeout-suspend (with-timeout-suspend))
 	    (edebug-outside-debug-on-error debug-on-error)
 	    (edebug-outside-debug-on-quit debug-on-quit)
 	    ;; Binding these may not be the right thing to do.
@@ -2289,6 +2290,7 @@
 	      (edebug-enter edebug-function edebug-args edebug-body))
 	  ;; Reset global variables in case outside value was changed.
 	  (setq executing-kbd-macro edebug-outside-executing-macro)
+	  (with-timeout-unsuspend edebug-with-timeout-suspend)
 	  (edebug-restore-status
 	   'post-command-hook edebug-outside-post-command-hook)
 	  (edebug-restore-status