/[emacs]/emacs/lisp/emacs-lisp/edebug.el
ViewVC logotype

Diff of /emacs/lisp/emacs-lisp/edebug.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 3.73 by lute, Sat Jun 11 08:39:39 2005 UTC revision 3.74 by teirllm, Tue Jun 14 20:39:04 2005 UTC
# Line 80  using but only when you also use Edebug. Line 80  using but only when you also use Edebug.
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'.
# Line 141  it." Line 141  it."
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)
# Line 180  Use this with caution since it is not de Line 180  Use this with caution since it is not de
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    
# Line 3189  The default is one second." Line 3189  The default is one second."
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)))
# Line 3729  Print result in minibuffer." Line 3729  Print result in minibuffer."
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))

Legend:
Removed from v.3.73  
changed lines
  Added in v.3.74

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26