Function: edebug--called-interactively-skip

edebug--called-interactively-skip is a byte-compiled function defined in edebug.el.gz.

Signature

(edebug--called-interactively-skip I FRAME1 FRAME2)

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/edebug.el.gz
(defun edebug--called-interactively-skip (i frame1 frame2)
  (when (and (interpreted-function-p (nth 1 frame1))
             ;; Lambda value with no arguments.
             (null (aref (nth 1 frame1) 0))
             (memq (nth 1 frame2) '(edebug-enter edebug-default-enter)))
    ;; `edebug-enter' calls itself on its first invocation.
    (let ((s 1))
      (while (memq (nth 1 (backtrace-frame i 'called-interactively-p))
                   '(edebug-enter edebug-default-enter))
        (incf s)
        (incf i))
      s)))