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

2 files changed, 34 insertions, 0 deletions

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