From: Richard M. Stallman Date: Sun, 10 Jul 2005 17:23:54 +0000 (+0000) Subject: (edebug-enter): Call with-timeout-suspend and with-timeout-unsuspend. X-Git-Tag: emacs-pretest-22.0.90~8245 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e2dacaacaf8ffa10e3572db573c47b69ae3b51a8;p=emacs.git (edebug-enter): Call with-timeout-suspend and with-timeout-unsuspend. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 86c6965c801..06cf972aac2 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,29 @@ +2005-07-10 Richard M. Stallman + + * 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 (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 (tiny change) + + * facemenu.el (facemenu-read-color): Do case-insensitive matching. + 2005-07-10 Luc Teirlinck * 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 + + * 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 * fringe.el (fringe-mode): Add period in docstring. diff --git a/lisp/emacs-lisp/edebug.el b/lisp/emacs-lisp/edebug.el index fe0453519df..72046399352 100644 --- a/lisp/emacs-lisp/edebug.el +++ b/lisp/emacs-lisp/edebug.el @@ -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