diff options
Diffstat (limited to 'lisp/emacs-lisp')
| -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)) |