aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-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