diff options
| author | Richard M. Stallman <rms@gnu.org> | 1997-06-22 05:01:30 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1997-06-22 05:01:30 +0000 |
| commit | 5492ef3c719559ab34138ace5c1233eba3cb720f (patch) | |
| tree | 598523d1cc19df9a08ebe1741d0f3269ed49e634 | |
| parent | 4219b27be43fabe30000c38b9e0451264af41100 (diff) | |
| download | emacs-5492ef3c719559ab34138ace5c1233eba3cb720f.tar.gz | |
(edebug-sit-for-seconds): New variable.
(edebug-display): Use that variable to control amt of time.
| -rw-r--r-- | lisp/emacs-lisp/edebug.el | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/lisp/emacs-lisp/edebug.el b/lisp/emacs-lisp/edebug.el index 9839a38940d..ed36ff1537d 100644 --- a/lisp/emacs-lisp/edebug.el +++ b/lisp/emacs-lisp/edebug.el @@ -9,7 +9,7 @@ ;; LCD Archive Entry: ;; edebug|Daniel LaLiberte|liberte@cs.uiuc.edu ;; |A source level debugger for Emacs Lisp. -;; |$Date: 1997/05/05 01:03:53 $|$Revision: 3.16 $|~/modes/edebug.el| +;; |$Date: 1997/05/29 06:32:44 $|$Revision: 3.17 $|~/modes/edebug.el| ;; This file is part of GNU Emacs. @@ -86,7 +86,7 @@ ;;; Code: (defconst edebug-version - (let ((raw-version "$Revision: 3.16 $")) + (let ((raw-version "$Revision: 3.17 $")) (substring raw-version (string-match "[0-9.]*" raw-version) (match-end 0)))) @@ -291,6 +291,11 @@ If the result is non-nil, then break. Errors are ignored." :type 'sexp :group 'edebug) +(defcustom edebug-sit-for-seconds 1 + "*Number of seconds to pause when execution mode is `trace'." + :type 'number + :group 'edebug) + ;;; Form spec utilities. ;;;###autoload @@ -2661,7 +2666,7 @@ MSG is printed after `::::} '." (t (setq edebug-stop t)))) ;; not edebug-break ((eq edebug-execution-mode 'trace) - (edebug-sit-for 1)) ; Force update and pause. + (edebug-sit-for edebug-sit-for-seconds)) ; Force update and pause. ((eq edebug-execution-mode 'Trace-fast) (edebug-sit-for 0)) ; Force update and continue. ) |