# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 1141386943 0
# Node ID 651c5e7479de2b6f909e3a1218907a2c489e1bc4
# Parent  877f109009ca01213d8c1b2d486c17f68d99a66d
(edebug-display): Use `edebug-sit-for-seconds' value instead of a literal
constant (1) on more pauses.

diff -r 877f109009ca -r 651c5e7479de lisp/emacs-lisp/edebug.el
--- 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