(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