Function: debug--implement-debug-on-entry

debug--implement-debug-on-entry is a byte-compiled function defined in debug.el.gz.

Signature

(debug--implement-debug-on-entry &rest IGNORE)

Documentation

Conditionally call the debugger.

A call to this function is inserted by debug-on-entry to cause functions to break on entry.

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/debug.el.gz
;; When you change this, you may also need to change the number of
;; frames that the debugger skips.
(defun debug--implement-debug-on-entry (&rest _ignore)
  "Conditionally call the debugger.
A call to this function is inserted by `debug-on-entry' to cause
functions to break on entry."
  (if (or inhibit-debug-on-entry debugger-jumping-flag)
      nil
    (let ((inhibit-debug-on-entry t))
      (funcall debugger 'debug :backtrace-base
               ;; An offset of 1 because we need to skip the advice
               ;; OClosure that called us.
               '(1 . debug--implement-debug-on-entry)))))