From e2dacaacaf8ffa10e3572db573c47b69ae3b51a8 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 10 Jul 2005 17:23:54 +0000 Subject: (edebug-enter): Call with-timeout-suspend and with-timeout-unsuspend. --- lisp/emacs-lisp/edebug.el | 2 ++ 1 file changed, 2 insertions(+) (limited to 'lisp/emacs-lisp/edebug.el') diff --git a/lisp/emacs-lisp/edebug.el b/lisp/emacs-lisp/edebug.el index fe0453519df..72046399352 100644 --- a/lisp/emacs-lisp/edebug.el +++ b/lisp/emacs-lisp/edebug.el @@ -2244,6 +2244,7 @@ error is signaled again." (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 @@ error is signaled again." (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 -- cgit v1.2.3