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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 86c6965c8017b5c2086d5a4f85241eaa5943dba6..06cf972aac2dd7456b9e2942f5cceaa540d07359 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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.

diff --git a/lisp/emacs-lisp/edebug.el b/lisp/emacs-lisp/edebug.el
index fe0453519dfae11584f6aa4a30e54ffec173386b..720463993527d7f1a8a249c8f59c95ac490ab521 100644 (file)
--- 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