diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2006-03-03 11:55:43 +0000 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2006-03-03 11:55:43 +0000 |
| commit | 309411cbe736736e5630f32c418bd7640c12e46e (patch) | |
| tree | 167f83baeadb5935ec665a838e1605924c5beeb8 /lisp/emacs-lisp/edebug.el | |
| parent | ee65a1327b4bcca71e79a4de0505b4169d8b06dd (diff) | |
| download | emacs-309411cbe736736e5630f32c418bd7640c12e46e.tar.gz emacs-309411cbe736736e5630f32c418bd7640c12e46e.tar.bz2 emacs-309411cbe736736e5630f32c418bd7640c12e46e.zip | |
(edebug-display): Use `edebug-sit-for-seconds' value instead of a literal
constant (1) on more pauses.
Diffstat (limited to 'lisp/emacs-lisp/edebug.el')
| -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 `::::} '." ;; 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 |