From: Lars Ingebrigtsen <larsi@gnus.org>
To: Pythonora Nybon <bmsac0001@gmail.com>
Cc: 57115@debbugs.gnu.org, Stefan Monnier <monnier@iro.umontreal.ca>
Subject: bug#57115: emacs 29 ~commandp~ check function ~find-file~ loop without termination while ~find-file~ is adviced nested up to 20 level
Date: Fri, 12 Aug 2022 17:27:53 +0200 [thread overview]
Message-ID: <87czd5o51i.fsf@gnus.org> (raw)
In-Reply-To: <CALVtEK22f=4CF+ix3UR9zQ8=Esz_1b_1t43jVtyNTFSpinC5pQ@mail.gmail.com> (Pythonora Nybon's message of "Wed, 10 Aug 2022 08:55:09 +0800")
Pythonora Nybon <bmsac0001@gmail.com> writes:
> Insert below snippet as your `init.el` and run with vanilla emacs 29 session.
>
> ``` elisp
>
> (toggle-debug-on-quit)
> ;; (toggle-frame-maximized)
> ;; (package-initialize)
> (require 'files)
> (require 'help)
> (with-temp-message
> (substitute-command-keys
> (format
> "emacs %s is hang of `commandp' loop via advice to `find-file', \
> please hint `\\[keyboard-quit]' to see the backtrace."
> emacs-major-version))
> (dotimes (cnt 20)
> (let ((sym (intern (format "test-advice/cnt-%s" cnt))))
> (eval
> `(progn
> (defun ,sym (&rest _)
> nil)
> (advice-add 'find-file :before ',sym)))))
> (commandp 'find-file))
I'm not quite sure what this code snippet is attempting to achieve, but
it does hang in Emacs 29, and it didn't in Emacs 28.
Adding Stefan to the CCs; perhaps he has some comments.
next prev parent reply other threads:[~2022-08-12 15:27 UTC|newest]
Thread overview: 8+ messages / expand[flat|nested] mbox.gz Atom feed top
2022-08-10 0:55 bug#57115: emacs 29 ~commandp~ check function ~find-file~ loop without termination while ~find-file~ is adviced nested up to 20 level Pythonora Nybon
2022-08-12 15:27 ` Lars Ingebrigtsen [this message]
2022-08-13 4:37 ` Michael Heerdegen
2022-08-13 16:06 ` Stefan Monnier via Bug reports for GNU Emacs, the Swiss army knife of text editors
2022-08-14 2:02 ` Michael Heerdegen
2022-08-14 13:20 ` Stefan Kangas
2022-08-14 22:53 ` Michael Heerdegen
2022-08-15 14:29 ` Lars Ingebrigtsen
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.gnu.org/software/emacs/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=87czd5o51i.fsf@gnus.org \
--to=larsi@gnus.org \
--cc=57115@debbugs.gnu.org \
--cc=bmsac0001@gmail.com \
--cc=monnier@iro.umontreal.ca \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).