Mercurial > emacs
changeset 64209:193c8e4fb4d1
(debug): Call with-timeout-suspend and with-timeout-unsuspend.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 10 Jul 2005 17:19:07 +0000 |
| parents | 5177474d1ca7 |
| children | 3e480e2df335 |
| files | lisp/emacs-lisp/debug.el |
| diffstat | 1 files changed, 3 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/debug.el Sun Jul 10 17:18:25 2005 +0000 +++ b/lisp/emacs-lisp/debug.el Sun Jul 10 17:19:07 2005 +0000 @@ -150,7 +150,8 @@ (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 @@ ;; 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.