From: Michael Heerdegen <michael_heerdegen@web.de>
To: HaiJun Zhang <netjune@outlook.com>
Cc: "help-gnu-emacs@gnu.org" <help-gnu-emacs@gnu.org>,
Zhang Haijun <ccsmile2008@outlook.com>
Subject: Re: How to stop all edebug?
Date: Thu, 24 Oct 2019 15:13:07 +0200 [thread overview]
Message-ID: <87a79qz3q4.fsf@web.de> (raw)
In-Reply-To: <PS1PR03MB3606BD9544593C756F3E7823B76A0@PS1PR03MB3606.apcprd03.prod.outlook.com> (HaiJun Zhang's message of "Thu, 24 Oct 2019 12:45:55 +0000")
HaiJun Zhang <netjune@outlook.com> writes:
> I tried and it didn’t work. I eval
> `(edebug--edebug-on-entry-functions)` and it returns nil.
Oh well, correct again, that doesn't work as well, sorry for wasting
your time.
Ok, now I have tested that Lars' new `edebug-remove-instrumentation':
#+begin_src emacs-lisp
(defun edebug-remove-instrumentation ()
"Remove Edebug instrumentation from all functions."
(interactive)
(let ((functions nil))
(mapatoms
(lambda (symbol)
(when (and (functionp symbol)
(get symbol 'edebug))
(let ((unwrapped (edebug-unwrap* (symbol-function symbol))))
(unless (equal unwrapped (symbol-function symbol))
(push symbol functions)
(setf (symbol-function symbol) unwrapped)))))
obarray)
(if (not functions)
(message "Found no functions to remove instrumentation from")
(message "Remove edebug instrumentation from %s"
(mapconcat #'symbol-name functions ", ")))))
#+end_src
works for me at least in 26.1. Can you please try that? Just M-x
edebug-remove-instrumentation.
Regards,
Michael.
next prev parent reply other threads:[~2019-10-24 13:13 UTC|newest]
Thread overview: 14+ messages / expand[flat|nested] mbox.gz Atom feed top
2019-10-23 4:56 How to stop all edebug? Zhang Haijun
2019-10-23 6:46 ` Michael Heerdegen
[not found] ` <mailman.1523.1571813205.9715.help-gnu-emacs@gnu.org>
2019-10-23 7:31 ` Lars Magne Ingebrigtsen
2019-10-24 11:09 ` Michael Heerdegen
2019-10-24 4:10 ` HaiJun Zhang
2019-10-24 11:05 ` Michael Heerdegen
2019-10-24 12:45 ` HaiJun Zhang
2019-10-24 13:13 ` Michael Heerdegen [this message]
2019-10-24 14:10 ` HaiJun Zhang
[not found] ` <70a705e7-cebf-4ac4-b7af-0fc04b383de6@Spark>
2019-10-24 13:12 ` HaiJun Zhang
2019-10-23 12:43 ` Stefan Monnier
2019-10-24 4:12 ` HaiJun Zhang
2019-10-23 15:21 ` Eli Zaretskii
2019-10-24 4:16 ` HaiJun Zhang
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
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=87a79qz3q4.fsf@web.de \
--to=michael_heerdegen@web.de \
--cc=ccsmile2008@outlook.com \
--cc=help-gnu-emacs@gnu.org \
--cc=netjune@outlook.com \
/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 external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.