diff options
| author | Eli Zaretskii | 2006-03-03 11:55:43 +0000 |
|---|---|---|
| committer | Eli Zaretskii | 2006-03-03 11:55:43 +0000 |
| commit | 309411cbe736736e5630f32c418bd7640c12e46e (patch) | |
| tree | 167f83baeadb5935ec665a838e1605924c5beeb8 | |
| parent | ee65a1327b4bcca71e79a4de0505b4169d8b06dd (diff) | |
| download | emacs-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.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 |