Commit 5492ef3c authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(edebug-sit-for-seconds): New variable.

(edebug-display): Use that variable to control amt of time.
parent 4219b27b
......@@ -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.
)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment