Mercurial > emacs

comparison lisp/emacs-lisp/edebug.el @ 69255:651c5e7479de

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(edebug-display): Use `edebug-sit-for-seconds' value instead of a literal constant (1) on more pauses.
author Eli Zaretskii <eliz@gnu.org>
date Fri, 03 Mar 2006 11:55:43 +0000
parents 067115a6e738
children 5fd1441a60f9 a7364c1a561e
comparison
equal deleted inserted replaced
69254:877f109009ca 69255:651c5e7479de
2658 (if (eq 'after edebug-arg-mode) 2658 (if (eq 'after edebug-arg-mode)
2659 (progn 2659 (progn
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
2673 ((eq edebug-execution-mode 'trace) 2674 ((eq edebug-execution-mode 'trace)
2674 (edebug-sit-for edebug-sit-for-seconds)) ; Force update and pause. 2675 (edebug-sit-for edebug-sit-for-seconds)) ; Force update and pause.