(edebug--called-interactively-skip): Fix bug#71934

* lisp/emacs-lisp/edebug.el (edebug--called-interactively-skip):
Adjust to new interpreted functions.

(cherry picked from commit 334d51322072caea8283f3735864bb83afeaabce)

diff --git a/lisp/emacs-lisp/edebug.el b/lisp/emacs-lisp/edebug.el
index 3c238baafc69bc87a51ea6e0e2c69b92744a9fef..d3aceab6d4f89172d7f29d5bc5014a1fac660b4f 100644 (file)
--- a/lisp/emacs-lisp/edebug.el
+++ b/lisp/emacs-lisp/edebug.el
@@ -4577,10 +4577,9 @@ With prefix argument, make it a temporary breakpoint."
 (add-hook 'called-interactively-p-functions
           #'edebug--called-interactively-skip)
 (defun edebug--called-interactively-skip (i frame1 frame2)
-  (when (and (memq (car-safe (nth 1 frame1)) '(lambda closure))
+  (when (and (interpreted-function-p (nth 1 frame1))
              ;; Lambda value with no arguments.
-             (null (nth (if (eq (car-safe (nth 1 frame1)) 'lambda) 1 2)
-                        (nth 1 frame1)))
+             (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))