(edebug-sit-for-seconds): New variable.

(edebug-display): Use that variable to control amt of time.

1 files changed, 8 insertions, 3 deletions

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