mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-05 11:45:45 +00:00
Code Issues Releases Activity

(edebug-enter): Call with-timeout-suspend and with-timeout-unsuspend.

Browse Source
This commit is contained in:
Richard M. Stallman 2005-07-10 17:23:54 +00:00
parent 5bcc074b49
commit e2dacaacaf
2 changed files with 34 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
lisp/ChangeLog
View File

@ -1,3 +1,29 @@
2005-07-10 Richard M. Stallman <rms@gnu.org>
* emacs-lisp/edebug.el (edebug-enter): Call with-timeout-suspend
and with-timeout-unsuspend.
* emacs-lisp/debug.el (debug): Call with-timeout-suspend
and with-timeout-unsuspend.
* emacs-lisp/timer.el (with-timeout-timers): New variable.
(with-timeout): Bind that variable to record timers.
(with-timeout-suspend, with-timeout-unsuspend): New functions.
* emacs-lisp/debug.el (debug-help-follow): New function.
(debugger-mode-map): Use that instead of help-follow.
(debugger-setup-buffer): Use eval-buffer-list
to handle eval-buffer frames.
2005-07-10 N. Raghavendra <raghu@mri.ernet.in> (tiny change)
* timezone.el (timezone-parse-date): Changed first regexp
so it will not mistakenly match dates with no time zone.
2005-07-10 Jeff Dwork <jeff.dwork@amd.com> (tiny change)
* facemenu.el (facemenu-read-color): Do case-insensitive matching.
2005-07-10 Luc Teirlinck <teirllm@auburn.edu>
* custom.el (custom-initialize-safe-set)
@ -15,6 +41,12 @@
* files.el (set-visited-file-name): Avoid calling
`file-name-nondirectory' with a nil argument.
2005-07-09 Richard M. Stallman <rms@gnu.org>
* emacs-lisp/debug.el (debugger-setup-buffer): When eval-buffer
was called with nil for the buffer, handle the read position right.
Handle read position for eval-region, too.
2005-07-09 Juri Linkov <juri@jurta.org>
* fringe.el (fringe-mode): Add period in docstring.

2
lisp/emacs-lisp/edebug.el
View File

@ -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