diff options
| author | Po Lu <luangruo@yahoo.com> | 2024-07-05 10:05:23 +0800 |
|---|---|---|
| committer | Po Lu <luangruo@yahoo.com> | 2024-07-05 10:05:23 +0800 |
| commit | 507a13f5a1615d39f31d75547835416b29677c03 (patch) | |
| tree | ba32cbf65c0beb775129071e00215e106ab1cc46 /lisp/emacs-lisp/edebug.el | |
| parent | d76eb23232bffdf2505b13ec9216c6d0487a0ccb (diff) | |
| parent | 334d51322072caea8283f3735864bb83afeaabce (diff) | |
| download | emacs-507a13f5a1615d39f31d75547835416b29677c03.tar.gz emacs-507a13f5a1615d39f31d75547835416b29677c03.tar.bz2 emacs-507a13f5a1615d39f31d75547835416b29677c03.zip | |
Merge from savannah/emacs-30
334d5132207 (edebug--called-interactively-skip): Fix bug#71934
6e8b9ccaec2 ; * lisp/ibuffer.el (ibuffer-mode): Doc fix.
3eaf1abbff8 Fix MS-Windows build with native-compilation
fc375359edd Tag dbus-test05-register-signal-with-nils as unstable
99230d7080f ; * src/w32fns.c (funhook): Restore mistakenly lost line.
81a7358a33b Merge branch 'emacs-30' of git.savannah.gnu.org:/srv/git/...
b085d683962 Fix treesit test (bug#71907)
f39cf0beb74 Focus more on MS-Windows than MS-DOS in FAQ
d64396b8e42 Autoload some string functions
bd482b745aa Merge branch 'emacs-30' of git.savannah.gnu.org:/srv/git/...
b5341831353 * etc/NEWS: Fix typos.
850fc68481a ; (grep-read-files): Fix completion table
28532599358 Merge branch 'emacs-30' of git.savannah.gnu.org:/srv/git/...
921d40759e5 Remove a reference to a non-existant variable from a doc-...
5d2a115ab03 ; * src/fns.c (value_cmp): ASCIIfy.
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)) |