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

Fix doc string and interactive spec of cancel-edebug-on-entry

Browse source 
* lisp/emacs-lisp/edebug.el (cancel-edebug-on-entry): Add doc
string and make the interactive spec complete over functions that
have the spec (bug#10806).
(edebug-cancel-edebug-on-entry): Add alias for discoverability.
(edebug-on-entry): Clarify what this command does.
This commit is contained in:
Lars Ingebrigtsen 2019-10-20 10:51:08 +02:00
parent 27490cec4e
commit cfaecdb293
1 changed files with 24 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -3419,14 +3419,37 @@ instrumented. Then it does `edebug-on-entry' and switches to `go' mode."
(defun edebug-on-entry (function &optional flag)
"Cause Edebug to stop when FUNCTION is called.
FUNCTION needs to be edebug-instrumented for this to work; if
FUNCTION isn't, this function has no effect.
With prefix argument, make this temporary so it is automatically
canceled the first time the function is entered."
(interactive "aEdebug on entry to: \nP")
;; Could store this in the edebug data instead.
(put function 'edebug-on-entry (if flag 'temp t)))
(defalias 'edebug-cancel-edebug-on-entry #'cancel-edebug-on-entry)
(defun cancel-edebug-on-entry (function)
(interactive "aEdebug on entry to: ")
"Cause Edebug to not stop when FUNCTION is called.
The removes the effect of `edebug-on-entry'."
(interactive
(list (let ((name (completing-read
"Cancel edebug on entry to: "
(let ((functions nil))
(mapatoms
(lambda (symbol)
(when (and (fboundp symbol)
(get symbol 'edebug-on-entry))
(push symbol functions)))
obarray)
(unless functions
(error "No functions have `edebug-on-entry'."))
functions))))
(when (and name
(not (equal name "")))
(intern name)))))
(put function 'edebug-on-entry nil))