Mercurial > emacs

changeset 69255:651c5e7479de

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(edebug-display): Use `edebug-sit-for-seconds' value instead of a literal constant (1) on more pauses.
author Eli Zaretskii <eliz@gnu.org>
date Fri, 03 Mar 2006 11:55:43 +0000
parents 877f109009ca
children 2edf31d3809e
files lisp/emacs-lisp/edebug.el
diffstat 1 files changed, 3 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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