mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Instrument function if it hasn't been already in edebug-set-breakpoint

Browse source 
* lisp/emacs-lisp/edebug.el (edebug-set-breakpoint): Instrument
form automatically when using this function (bug#23469).
This commit is contained in:
Lars Ingebrigtsen 2019-10-20 12:25:59 +02:00
parent 4503af6c9e
commit 0794354b24
1 changed files with 5 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -3216,6 +3216,11 @@ the breakpoint."
"Set the breakpoint of nearest sexp.
With prefix argument, make it a temporary breakpoint."
(interactive "P")
;; If the form hasn't been instrumented yet, do it now.
(when (and (not edebug-active)
(let ((data (get (edebug-form-data-symbol) 'edebug)))
(or (null data) (markerp data))))
(edebug-defun))
(edebug-modify-breakpoint t nil arg))
(defun edebug-unset-breakpoint ()