diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2024-07-04 11:47:01 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2024-07-04 11:47:01 -0400 |
| commit | 334d51322072caea8283f3735864bb83afeaabce (patch) | |
| tree | f8f482d1e9c336400912ce0a63d34d11c0923ef0 /lisp/emacs-lisp/edebug.el | |
| parent | 6e8b9ccaec284f934d990f6442cb3b9458a11bf5 (diff) | |
| download | emacs-334d51322072caea8283f3735864bb83afeaabce.tar.gz emacs-334d51322072caea8283f3735864bb83afeaabce.tar.bz2 emacs-334d51322072caea8283f3735864bb83afeaabce.zip | |
(edebug--called-interactively-skip): Fix bug#71934
* lisp/emacs-lisp/edebug.el (edebug--called-interactively-skip):
Adjust to new interpreted functions.
Diffstat (limited to 'lisp/emacs-lisp/edebug.el')
| -rw-r--r-- | lisp/emacs-lisp/edebug.el | 5 |
1 files 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)) |