From: Stefan Monnier Date: Thu, 4 Jul 2024 15:47:01 +0000 (-0400) Subject: (edebug--called-interactively-skip): Fix bug#71934 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=50ac903b575ffc9ad5155ca47cc570d270b368e8;p=emacs.git (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 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))