From 50ac903b575ffc9ad5155ca47cc570d270b368e8 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Thu, 4 Jul 2024 11:47:01 -0400 Subject: [PATCH] (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) --- 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 3c238baafc6..d3aceab6d4f 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)) -- 2.39.2