[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/edebug.el

[Luc Teirlinck]

Index: emacs/lisp/emacs-lisp/edebug.el
diff -c emacs/lisp/emacs-lisp/edebug.el:3.73 
emacs/lisp/emacs-lisp/edebug.el:3.74
*** emacs/lisp/emacs-lisp/edebug.el:3.73        Sat Jun 11 08:39:39 2005
--- emacs/lisp/emacs-lisp/edebug.el     Tue Jun 14 20:39:04 2005
***************
*** 80,86 ****
  
  ;;;###autoload
  (defcustom edebug-all-defs nil
!   "*If non-nil, evaluation of any defining forms will instrument for Edebug.
  This applies to `eval-defun', `eval-region', `eval-buffer', and
  `eval-current-buffer'.  `eval-region' is also called by
  `eval-last-sexp', and `eval-print-last-sexp'.
--- 80,86 ----
  
  ;;;###autoload
  (defcustom edebug-all-defs nil
!   "*If non-nil, evaluating defining forms instruments for Edebug.
  This applies to `eval-defun', `eval-region', `eval-buffer', and
  `eval-current-buffer'.  `eval-region' is also called by
  `eval-last-sexp', and `eval-print-last-sexp'.
***************
*** 141,150 ****
    :group 'edebug)
  
  (defcustom edebug-initial-mode 'step
!   "*Initial execution mode for Edebug, if non-nil.  If this variable
! is address@hidden, it specifies the initial execution mode for Edebug
! when it is first activated.  Possible values are step, next, go,
! Go-nonstop, trace, Trace-fast, continue, and Continue-fast."
    :type '(choice (const step) (const next) (const go)
                 (const Go-nonstop) (const trace)
                 (const Trace-fast) (const continue)
--- 141,150 ----
    :group 'edebug)
  
  (defcustom edebug-initial-mode 'step
!   "*Initial execution mode for Edebug, if non-nil.
! If this variable is non-nil, it specifies the initial execution mode
! for Edebug when it is first activated.  Possible values are step, next,
! go, Go-nonstop, trace, Trace-fast, continue, and Continue-fast."
    :type '(choice (const step) (const next) (const go)
                 (const Go-nonstop) (const trace)
                 (const Trace-fast) (const continue)
***************
*** 180,194 ****
  
  
  (defcustom edebug-print-length 50
!   "*Default value of `print-length' to use while printing results in Edebug."
    :type 'integer
    :group 'edebug)
  (defcustom edebug-print-level 50
!   "*Default value of `print-level' to use while printing results in Edebug."
    :type 'integer
    :group 'edebug)
  (defcustom edebug-print-circle t
!   "*Default value of `print-circle' to use while printing results in Edebug."
    :type 'boolean
    :group 'edebug)
  
--- 180,194 ----
  
  
  (defcustom edebug-print-length 50
!   "*Default value of `print-length' for printing results in Edebug."
    :type 'integer
    :group 'edebug)
  (defcustom edebug-print-level 50
!   "*Default value of `print-level' for printing results in Edebug."
    :type 'integer
    :group 'edebug)
  (defcustom edebug-print-circle t
!   "*Default value of `print-circle' for printing results in Edebug."
    :type 'boolean
    :group 'edebug)
  
***************
*** 3189,3196 ****
  
  
  (defun edebug-modify-breakpoint (flag &optional condition temporary)
!   "Modify the breakpoint for the form at point or after it according
! to FLAG: set if t, clear if nil.  Then move to that point.
  If CONDITION or TEMPORARY are non-nil, add those attributes to
  the breakpoint.  "
    (let ((edebug-stop-point (edebug-find-stop-point)))
--- 3189,3196 ----
  
  
  (defun edebug-modify-breakpoint (flag &optional condition temporary)
!   "Modify the breakpoint for the form at point or after it.
! Set it if FLAG is non-nil, clear it otherwise.  Then move to that point.
  If CONDITION or TEMPORARY are non-nil, add those attributes to
  the breakpoint.  "
    (let ((edebug-stop-point (edebug-find-stop-point)))
***************
*** 3729,3740 ****
              (eval-expression-print-format (car values))))))
  
  (defun edebug-eval-last-sexp ()
!   "Evaluate sexp before point in the outside environment; value in 
minibuffer."
    (interactive)
    (edebug-eval-expression (edebug-last-sexp)))
  
  (defun edebug-eval-print-last-sexp ()
!   "Evaluate sexp before point in the outside environment; insert the value.
  This prints the value into current buffer."
    (interactive)
    (let* ((edebug-form (edebug-last-sexp))
--- 3729,3741 ----
              (eval-expression-print-format (car values))))))
  
  (defun edebug-eval-last-sexp ()
!   "Evaluate sexp before point in the outside environment.
! Print value in minibuffer."
    (interactive)
    (edebug-eval-expression (edebug-last-sexp)))
  
  (defun edebug-eval-print-last-sexp ()
!   "Evaluate sexp before point in outside environment; insert value.
  This prints the value into current buffer."
    (interactive)
    (let* ((edebug-form (edebug-last-sexp))