Lines Matching defs:on
40 "*Hooks run when `debugger-mode' is turned on."
55 "List of functions currently set for debug on entry.")
94 (defvar inhibit-debug-on-entry nil
95 "Non-nil means that debug-on-entry is disabled.")
98 "Non-nil means that debug-on-entry is disabled.
100 and `debugger-reenable' to temporarily disable debug-on-entry.")
122 (debug-on-error nil)
123 (debug-on-quit nil)
161 (inhibit-debug-on-entry t)
182 ;; and implement-debug-on-entry.
184 ;; Place an extra debug-on-exit for macro's.
263 (setq debug-on-next-call debugger-step-after-exit)
283 2 ; Remove implement-debug-on-entry frame.
287 ;; lambda is for debug-on-call when a function call is next.
288 ;; debug is for debug-on-entry function called.
305 ;; debug-on-call, when the next thing is an eval.
394 ;; help-xref-button needs to operate on something matched
405 Enter another debugger on next entry to eval, apply or funcall."
411 (message "Proceeding, will debug on next eval or call.")
421 ;; Check to see if we've flagged some frame for debug-on-exit, in which
431 will be used, such as in a debug on exit from a frame."
437 ;; Check to see if we've flagged some frame for debug-on-exit, in which
445 "Continue to exit from this frame, with all debug-on-entry suspended."
455 "Turn all debug-on-entry functions back on.
456 This function is put on `post-command-hook' by `debugger-jump' and
469 ;; Skip implement-debug-on-entry frame.
470 (when (eq 'implement-debug-on-entry (cadr (backtrace-frame (1+ count))))
491 Applies to the frame whose line point is on in the backtrace."
507 Applies to the frame whose line point is on in the backtrace."
622 Use \\[debug-on-entry] and \\[cancel-debug-on-entry] to control
687 (defun implement-debug-on-entry ()
689 A call to this function is inserted by `debug-on-entry' to cause
690 functions to break on entry."
691 (if (or inhibit-debug-on-entry debugger-jumping-flag)
702 (defun debug-on-entry (function)
711 form, in which case stepping is not possible. Break-on-entry for
714 Use \\[cancel-debug-on-entry] to cancel the effect of this command.
722 (format "Debug on entry to function (default %s): " fn)
723 "Debug on entry to function: ")
736 (fset function `(lambda (&rest debug-on-entry-args)
739 debug-on-entry-args)))
751 (fset function (debug-on-entry-1 function t))
757 (defun cancel-debug-on-entry (&optional function)
758 "Undo effect of \\[debug-on-entry] on FUNCTION.
759 If FUNCTION is nil, cancel debug-on-entry for all functions.
765 "Cancel debug on entry to function (default all functions): "
773 (let ((defn (debug-on-entry-1 function nil)))
775 (when (and (equal (nth 1 defn) '(&rest debug-on-entry-args))
777 ;; `defn' is a wrapper introduced in debug-on-entry.
784 (message "Cancelling debug-on-entry for all functions")
785 (mapcar 'cancel-debug-on-entry debug-function-list)))
808 (defun debug-on-entry-1 (function flag)
814 ;; Only signal an error when we try to set debug-on-entry.
815 ;; When we try to clear debug-on-entry, we are now done.
825 (unless (eq flag (equal (cadr tail) '(implement-debug-on-entry)))
828 (setcdr tail (cons '(implement-debug-on-entry) (cdr tail)))
833 "Display a list of all the functions now set to debug on entry."
840 (princ "No debug-on-entry functions now\n")
841 (princ "Functions set to debug on entry:\n\n")
849 (princ "be set to debug on entry, even if it is in the list.")))))