diff options
| author | Richard M. Stallman <[email protected]> | 2005-07-10 17:19:07 +0000 |
|---|---|---|
| committer | Richard M. Stallman <[email protected]> | 2005-07-10 17:19:07 +0000 |
| commit | 385480e59a8bdf199cbd903ca42eb938a4ec886f (patch) | |
| tree | d67b08f882622a1a8953f0c65214fc047c81b369 /lisp/emacs-lisp/debug.el | |
| parent | 89c020e85ddcd035d7e5d044a2ffe8589f63d26c (diff) | |
(debug): Call with-timeout-suspend and with-timeout-unsuspend.
Diffstat (limited to 'lisp/emacs-lisp/debug.el')
| -rw-r--r-- | lisp/emacs-lisp/debug.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/debug.el b/lisp/emacs-lisp/debug.el index 3e4bf44555..4f968c60b5 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. |