mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-04 02:51:31 -08:00
Code Issues Projects Releases Wiki Activity

(edebug-eval-defun): Make doc string

Browse source 
similar to that of eval-defun.
This commit is contained in:
Gerd Moellmann 2000-07-05 15:15:53 +00:00
parent f4d195451a
commit 44b6285eb6
1 changed files with 17 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

22
lisp/emacs-lisp/edebug.el
View file

@ -516,11 +516,23 @@ also dependent on the values of `edebug-all-defs' and
(defun edebug-eval-defun (edebug-it) (defun edebug-eval-defun (edebug-it)
"Evaluate the top-level form containing point, or after point. "Evaluate the top-level form containing point, or after point.
This version, from Edebug, has the following differences: With a If the current defun is actually a call to `defvar', then reset the
prefix argument instrument the code for Edebug. If `edebug-all-defs' is variable using its initial value expression even if the variable
non-nil, then the code is instrumented *unless* there is a prefix already has some other value. (Normally `defvar' does not change the
argument. If instrumenting, it prints: `Edebug: FUNCTIONNAME'. variable's value if it already has a value.)
Otherwise, it prints in the minibuffer."
With a prefix argument, instrument the code for Edebug.
Setting `edebug-all-defs' to a non-nil value reverses the meaning of
the prefix argument. Code is then instrumented when this function is
invoked without a prefix argument
If acting on a `defun' for FUNCTION, and the function was
instrumented, `Edebug: FUNCTION' is printed in the minibuffer. If not
instrumented, just FUNCTION is printed.
If not acting on a `defun', the result of evaluation is displayed in
the minibuffer."
(interactive "P") (interactive "P")
(let* ((edebugging (not (eq (not edebug-it) (not edebug-all-defs)))) (let* ((edebugging (not (eq (not edebug-it) (not edebug-all-defs))))
(edebug-result) (edebug-result)