80 |
|
|
81 |
;;;###autoload |
;;;###autoload |
82 |
(defcustom edebug-all-defs nil |
(defcustom edebug-all-defs nil |
83 |
"*If non-nil, evaluation of any defining forms will instrument for Edebug. |
"*If non-nil, evaluating defining forms instruments for Edebug. |
84 |
This applies to `eval-defun', `eval-region', `eval-buffer', and |
This applies to `eval-defun', `eval-region', `eval-buffer', and |
85 |
`eval-current-buffer'. `eval-region' is also called by |
`eval-current-buffer'. `eval-region' is also called by |
86 |
`eval-last-sexp', and `eval-print-last-sexp'. |
`eval-last-sexp', and `eval-print-last-sexp'. |
141 |
:group 'edebug) |
:group 'edebug) |
142 |
|
|
143 |
(defcustom edebug-initial-mode 'step |
(defcustom edebug-initial-mode 'step |
144 |
"*Initial execution mode for Edebug, if non-nil. If this variable |
"*Initial execution mode for Edebug, if non-nil. |
145 |
is non-@code{nil}, it specifies the initial execution mode for Edebug |
If this variable is non-nil, it specifies the initial execution mode |
146 |
when it is first activated. Possible values are step, next, go, |
for Edebug when it is first activated. Possible values are step, next, |
147 |
Go-nonstop, trace, Trace-fast, continue, and Continue-fast." |
go, Go-nonstop, trace, Trace-fast, continue, and Continue-fast." |
148 |
:type '(choice (const step) (const next) (const go) |
:type '(choice (const step) (const next) (const go) |
149 |
(const Go-nonstop) (const trace) |
(const Go-nonstop) (const trace) |
150 |
(const Trace-fast) (const continue) |
(const Trace-fast) (const continue) |
180 |
|
|
181 |
|
|
182 |
(defcustom edebug-print-length 50 |
(defcustom edebug-print-length 50 |
183 |
"*Default value of `print-length' to use while printing results in Edebug." |
"*Default value of `print-length' for printing results in Edebug." |
184 |
:type 'integer |
:type 'integer |
185 |
:group 'edebug) |
:group 'edebug) |
186 |
(defcustom edebug-print-level 50 |
(defcustom edebug-print-level 50 |
187 |
"*Default value of `print-level' to use while printing results in Edebug." |
"*Default value of `print-level' for printing results in Edebug." |
188 |
:type 'integer |
:type 'integer |
189 |
:group 'edebug) |
:group 'edebug) |
190 |
(defcustom edebug-print-circle t |
(defcustom edebug-print-circle t |
191 |
"*Default value of `print-circle' to use while printing results in Edebug." |
"*Default value of `print-circle' for printing results in Edebug." |
192 |
:type 'boolean |
:type 'boolean |
193 |
:group 'edebug) |
:group 'edebug) |
194 |
|
|
3189 |
|
|
3190 |
|
|
3191 |
(defun edebug-modify-breakpoint (flag &optional condition temporary) |
(defun edebug-modify-breakpoint (flag &optional condition temporary) |
3192 |
"Modify the breakpoint for the form at point or after it according |
"Modify the breakpoint for the form at point or after it. |
3193 |
to FLAG: set if t, clear if nil. Then move to that point. |
Set it if FLAG is non-nil, clear it otherwise. Then move to that point. |
3194 |
If CONDITION or TEMPORARY are non-nil, add those attributes to |
If CONDITION or TEMPORARY are non-nil, add those attributes to |
3195 |
the breakpoint. " |
the breakpoint. " |
3196 |
(let ((edebug-stop-point (edebug-find-stop-point))) |
(let ((edebug-stop-point (edebug-find-stop-point))) |
3729 |
(eval-expression-print-format (car values)))))) |
(eval-expression-print-format (car values)))))) |
3730 |
|
|
3731 |
(defun edebug-eval-last-sexp () |
(defun edebug-eval-last-sexp () |
3732 |
"Evaluate sexp before point in the outside environment; value in minibuffer." |
"Evaluate sexp before point in the outside environment. |
3733 |
|
Print value in minibuffer." |
3734 |
(interactive) |
(interactive) |
3735 |
(edebug-eval-expression (edebug-last-sexp))) |
(edebug-eval-expression (edebug-last-sexp))) |
3736 |
|
|
3737 |
(defun edebug-eval-print-last-sexp () |
(defun edebug-eval-print-last-sexp () |
3738 |
"Evaluate sexp before point in the outside environment; insert the value. |
"Evaluate sexp before point in outside environment; insert value. |
3739 |
This prints the value into current buffer." |
This prints the value into current buffer." |
3740 |
(interactive) |
(interactive) |
3741 |
(let* ((edebug-form (edebug-last-sexp)) |
(let* ((edebug-form (edebug-last-sexp)) |