aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorEli Zaretskii2006-03-03 11:55:43 +0000
committerEli Zaretskii2006-03-03 11:55:43 +0000
commit309411cbe736736e5630f32c418bd7640c12e46e (patch)
tree167f83baeadb5935ec665a838e1605924c5beeb8
parentee65a1327b4bcca71e79a4de0505b4169d8b06dd (diff)
downloademacs-309411cbe736736e5630f32c418bd7640c12e46e.tar.gz
emacs-309411cbe736736e5630f32c418bd7640c12e46e.zip
(edebug-display): Use `edebug-sit-for-seconds' value instead of a literal
constant (1) on more pauses.
-rw-r--r--lisp/emacs-lisp/edebug.el5
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/edebug.el b/lisp/emacs-lisp/edebug.el
index 49cf4115923..444c310920d 100644
--- a/lisp/emacs-lisp/edebug.el
+++ b/lisp/emacs-lisp/edebug.el
@@ -2660,13 +2660,14 @@ MSG is printed after `::::} '."
2660 ;; Display result of previous evaluation. 2660 ;; Display result of previous evaluation.
2661 (if (and edebug-break 2661 (if (and edebug-break
2662 (not (eq edebug-execution-mode 'Continue-fast))) 2662 (not (eq edebug-execution-mode 'Continue-fast)))
2663 (sit-for 1)) ; Show break message. 2663 (edebug-sit-for edebug-sit-for-seconds)) ; Show message.
2664 (edebug-previous-result))) 2664 (edebug-previous-result)))
2665 2665
2666 (cond 2666 (cond
2667 (edebug-break 2667 (edebug-break
2668 (cond 2668 (cond
2669 ((eq edebug-execution-mode 'continue) (edebug-sit-for 1)) 2669 ((eq edebug-execution-mode 'continue)
2670 (edebug-sit-for edebug-sit-for-seconds))
2670 ((eq edebug-execution-mode 'Continue-fast) (edebug-sit-for 0)) 2671 ((eq edebug-execution-mode 'Continue-fast) (edebug-sit-for 0))
2671 (t (setq edebug-stop t)))) 2672 (t (setq edebug-stop t))))
2672 ;; not edebug-break 2673 ;; not edebug-break