diff options
| -rw-r--r-- | lisp/emacs-lisp/edebug.el | 5 |
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 |