lisp/emacs-lisp/edebug.el

71 once and then `edebug-setup-hook' is reset to nil.  You could use this
466 If STREAM is nil, use the value of `standard-input' (which see).
467 STREAM or the value of `standard-input' may be:
479   (or stream (setq stream standard-input))
492 If the current defun is actually a call to `defvar', then reset the
1136 	edebug-current-offset ; reset to nil
1167 	 ;; Not edebugging this form, so reset the symbol's edebug
1706       ;; no-match, but don't fail; just reset cursor and return nil.
1740 	;; Match failed, so reset and try again.
1998 ;; The standard defining forms.
2150 (def-edebug-spec with-custom-print body)
2231 This is the Edebug replacement for the standard `signal'.  It should
2814 (defvar edebug-outside-standard-output)
2815 (defvar edebug-outside-standard-input)
2869 	(edebug-outside-standard-output standard-output)
2870 	(edebug-outside-standard-input standard-input)
2971        standard-output edebug-outside-standard-output
2972        standard-input edebug-outside-standard-input
3596 	   (standard-output edebug-outside-standard-output)
3597 	   (standard-input edebug-outside-standard-input)
3639 	  edebug-outside-standard-output standard-output
3640 	  edebug-outside-standard-input standard-input
3681 (define-obsolete-function-alias 'edebug-install-custom-print-funcs
3682     'edebug-install-custom-print "22.1")
3683 (define-obsolete-function-alias 'edebug-reset-print-funcs
3684     'edebug-uninstall-custom-print "22.1")
3685 (define-obsolete-function-alias 'edebug-uninstall-custom-print-funcs
3686     'edebug-uninstall-custom-print "22.1")
3688 (defun edebug-install-custom-print ()
3689   "Replace print functions used by Edebug with custom versions."
3690   ;; Modifying the custom print functions, or changing print-length,
3691   ;; print-level, print-circle, custom-print-list or custom-print-vector
3695   (defalias 'edebug-prin1 'custom-prin1)
3696   (defalias 'edebug-print 'custom-print)
3697   (defalias 'edebug-prin1-to-string 'custom-prin1-to-string)
3698   (defalias 'edebug-format 'custom-format)
3699   (defalias 'edebug-message 'custom-message)
3703   (defun edebug-uninstall-custom-print ()
3704     "Replace edebug custom print functions with internal versions."
3714   (edebug-uninstall-custom-print))
3789 	 (standard-output (current-buffer)))
3982 	(standard-output edebug-eval-buffer)
4098 ;;; Interface with standard debugger.
4101 ;; (setq debugger 'debug)  ; use the standard debugger
4146     (setq edebug-backtrace-buffer standard-output)
4461      ;; Interfaces to standard functions.