procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Allow using edebug-remove-instrumentation more fine-grained

Browse source 
* lisp/emacs-lisp/edebug.el (edebug-remove-instrumentation):
Prompt the user for what functions to remove instrumentation from
a la cancel-edebug-on-entry (bug#38195).
This commit is contained in:
Lars Ingebrigtsen 2019-11-14 06:19:59 +01:00
parent 1d189843bb
commit d9ea77af4c
1 changed files with 31 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

48
lisp/emacs-lisp/edebug.el
View file

@ -4571,23 +4571,37 @@ With prefix argument, make it a temporary breakpoint."
;; Continue standard unloading.
nil)
(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 ", ")))))
(defun edebug-remove-instrumentation (functions)
"Remove Edebug instrumentation from FUNCTIONS.
Interactively, the user is prompted for the function to remove
instrumentation for, defaulting to all functions."
(interactive
(list
(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)))))
obarray)
(unless functions
(error "Found no functions to remove instrumentation from"))
(let ((name
(completing-read
"Remove instrumentation from (default all functions): "
functions)))
(if (and name
(not (equal name "")))
(list (intern name))
functions)))))
;; Remove instrumentation.
(dolist (symbol functions)
(setf (symbol-function symbol)
(edebug-unwrap* (symbol-function symbol))))
(message "Removed edebug instrumentation from %s"
(mapconcat #'symbol-name functions ", ")))
(provide 'edebug)
;;; edebug.el ends here