diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2019-10-20 12:25:59 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2019-10-20 12:25:59 +0200 |
| commit | 0794354b2435579b73e6ccf7feaa4b947050a5e5 (patch) | |
| tree | c8c3f67fde83c958044743d6bbedf4044951d4e3 /lisp/emacs-lisp/edebug.el | |
| parent | 4503af6c9eacb2a3d9ef15748b66c6a453f797a4 (diff) | |
| download | emacs-0794354b2435579b73e6ccf7feaa4b947050a5e5.tar.gz emacs-0794354b2435579b73e6ccf7feaa4b947050a5e5.tar.bz2 emacs-0794354b2435579b73e6ccf7feaa4b947050a5e5.zip | |
Instrument function if it hasn't been already in edebug-set-breakpoint
* lisp/emacs-lisp/edebug.el (edebug-set-breakpoint): Instrument
form automatically when using this function (bug#23469).
Diffstat (limited to 'lisp/emacs-lisp/edebug.el')
| -rw-r--r-- | lisp/emacs-lisp/edebug.el | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/lisp/emacs-lisp/edebug.el b/lisp/emacs-lisp/edebug.el index e0bf52af473..ef138ba35f2 100644 --- a/lisp/emacs-lisp/edebug.el +++ b/lisp/emacs-lisp/edebug.el @@ -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 () |