Mercurial > emacs

changeset 64212:2cf2651a3a37

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(edebug-enter): Call with-timeout-suspend and with-timeout-unsuspend.
author Richard M. Stallman <rms@gnu.org>
date Sun, 10 Jul 2005 17:23:44 +0000
parents 11c1d62f46ae
children b03d83c2166e
files lisp/emacs-lisp/edebug.el
diffstat 1 files changed, 2 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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