emacs-30 334d5132207: (edebug--called-interactively-skip): Fix bug#71934

[Stefan Monnier]

branch: emacs-30
commit 334d51322072caea8283f3735864bb83afeaabce
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>

    (edebug--called-interactively-skip): Fix bug#71934
    
    * lisp/emacs-lisp/edebug.el (edebug--called-interactively-skip):
    Adjust to new interpreted functions.
---
 lisp/emacs-lisp/edebug.el | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/lisp/emacs-lisp/edebug.el b/lisp/emacs-lisp/edebug.el
index 381b7964a35..deebe5109bd 100644
--- 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))