From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 22 Jun 1997 05:01:30 +0000 (+0000)
Subject: (edebug-sit-for-seconds): New variable.
X-Git-Tag: emacs-20.1~1570
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5492ef3c719559ab34138ace5c1233eba3cb720f;p=emacs.git

(edebug-sit-for-seconds): New variable.
(edebug-display): Use that variable to control amt of time.
---

diff --git a/lisp/emacs-lisp/edebug.el b/lisp/emacs-lisp/edebug.el
index 9839a38940d..ed36ff1537d 100644
--- a/lisp/emacs-lisp/edebug.el
+++ b/lisp/emacs-lisp/edebug.el
@@ -9,7 +9,7 @@
 ;; LCD Archive Entry:
 ;; edebug|Daniel LaLiberte|liberte@cs.uiuc.edu
 ;; |A source level debugger for Emacs Lisp.
-;; |$Date: 1997/05/05 01:03:53 $|$Revision: 3.16 $|~/modes/edebug.el|
+;; |$Date: 1997/05/29 06:32:44 $|$Revision: 3.17 $|~/modes/edebug.el|
 
 ;; This file is part of GNU Emacs.
 
@@ -86,7 +86,7 @@
 ;;; Code:
 
 (defconst edebug-version
-  (let ((raw-version "$Revision: 3.16 $"))
+  (let ((raw-version "$Revision: 3.17 $"))
     (substring raw-version (string-match "[0-9.]*" raw-version)
 	       (match-end 0))))
      
@@ -291,6 +291,11 @@ If the result is non-nil, then break.  Errors are ignored."
   :type 'sexp
   :group 'edebug)
 
+(defcustom edebug-sit-for-seconds 1
+  "*Number of seconds to pause when execution mode is `trace'."
+  :type 'number
+  :group 'edebug)
+
 ;;; Form spec utilities.
 
 ;;;###autoload
@@ -2661,7 +2666,7 @@ MSG is printed after `::::} '."
 	     (t (setq edebug-stop t))))
 	   ;; not edebug-break
 	   ((eq edebug-execution-mode 'trace)
-	    (edebug-sit-for 1))		; Force update and pause.
+	    (edebug-sit-for edebug-sit-for-seconds)) ; Force update and pause.
 	   ((eq edebug-execution-mode 'Trace-fast)
 	    (edebug-sit-for 0))		; Force update and continue.
 	   )