From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 10 Jul 2005 17:19:07 +0000 (+0000)
Subject: (debug): Call with-timeout-suspend and with-timeout-unsuspend.
X-Git-Tag: emacs-pretest-22.0.90~8248
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=385480e59a8bdf199cbd903ca42eb938a4ec886f;p=emacs.git

(debug): Call with-timeout-suspend and with-timeout-unsuspend.
---

diff --git a/lisp/emacs-lisp/debug.el b/lisp/emacs-lisp/debug.el
index 3e4bf445551..4f968c60b5e 100644
--- a/lisp/emacs-lisp/debug.el
+++ b/lisp/emacs-lisp/debug.el
@@ -150,7 +150,8 @@ first will be printed into the backtrace buffer."
 	  (debugger-outer-standard-input standard-input)
 	  (debugger-outer-standard-output standard-output)
 	  (debugger-outer-inhibit-redisplay inhibit-redisplay)
-	  (debugger-outer-cursor-in-echo-area cursor-in-echo-area))
+	  (debugger-outer-cursor-in-echo-area cursor-in-echo-area)
+	  (debugger-with-timeout-suspend (with-timeout-suspend)))
       ;; Set this instead of binding it, so that `q'
       ;; will not restore it.
       (setq overriding-terminal-local-map nil)
@@ -235,6 +236,7 @@ first will be printed into the backtrace buffer."
                     ;; Drew Adams.  --Stef
                     (quit-window))))
 	    (kill-buffer debugger-buffer))
+	  (with-timeout-unsuspend debugger-with-timeout-suspend)
 	  (set-match-data debugger-outer-match-data)))
       ;; Put into effect the modified values of these variables
       ;; in case the user set them with the `e' command.