[Emacs-diffs] master 0794354: Instrument function if it hasn't been already in edebug-set-breakpoint

[Lars Ingebrigtsen]

branch: master
commit 0794354b2435579b73e6ccf7feaa4b947050a5e5
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>

    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).
---
 lisp/emacs-lisp/edebug.el | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/lisp/emacs-lisp/edebug.el b/lisp/emacs-lisp/edebug.el
index e0bf52a..ef138ba 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 ()