unofficial mirror of help-gnu-emacs@gnu.org
 help / color / mirror / Atom feed
From: HaiJun Zhang <netjune@outlook.com>
To: Michael Heerdegen <michael_heerdegen@web.de>
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 14:10:45 +0000	[thread overview]
Message-ID: <PS1PR03MB3606054822A41FC08055E821B76A0@PS1PR03MB3606.apcprd03.prod.outlook.com> (raw)
In-Reply-To: <87a79qz3q4.fsf@web.de>

在 2019年10月24日 +0800 PM9:13,Michael Heerdegen <michael_heerdegen@web.de>,写道:
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.

I tried. It works in 26.3.

Thanks.


  reply	other threads:[~2019-10-24 14:10 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
2019-10-24 14:10           ` HaiJun Zhang [this message]
     [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

  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=PS1PR03MB3606054822A41FC08055E821B76A0@PS1PR03MB3606.apcprd03.prod.outlook.com \
    --to=netjune@outlook.com \
    --cc=ccsmile2008@outlook.com \
    --cc=help-gnu-emacs@gnu.org \
    --cc=michael_heerdegen@web.de \
    /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.
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).