diff lisp/emacs-lisp/edebug.el @ 69255:651c5e7479de

(edebug-display): Use `edebug-sit-for-seconds' value instead of a literal constant (1) on more pauses.

--- a/lisp/emacs-lisp/edebug.el	Fri Mar 03 11:49:22 2006 +0000
+++ b/lisp/emacs-lisp/edebug.el	Fri Mar 03 11:55:43 2006 +0000
@@ -2660,13 +2660,14 @@
 		;; Display result of previous evaluation.
 		(if (and edebug-break
 			 (not (eq edebug-execution-mode 'Continue-fast)))
-		    (sit-for 1))	; Show break message.
+                    (edebug-sit-for edebug-sit-for-seconds)) ; Show message.
 		(edebug-previous-result)))
 
 	  (cond
 	   (edebug-break
 	    (cond
-	     ((eq edebug-execution-mode 'continue) (edebug-sit-for 1))
+	     ((eq edebug-execution-mode 'continue)
+              (edebug-sit-for edebug-sit-for-seconds))
 	     ((eq edebug-execution-mode 'Continue-fast) (edebug-sit-for 0))
 	     (t (setq edebug-stop t))))
 	   ;; not edebug-break