procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
* lisp/emacs-lisp/edebug.el (edebug--called-interactively-skip):
Adjust to new interpreted functions.
This commit is contained in:
Stefan Monnier 2024-07-04 11:47:01 -04:00
parent 6e8b9ccaec
commit 334d513220
1 changed files with 2 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/emacs-lisp/edebug.el
View file

@ -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))