From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Sun, 20 Oct 2019 10:25:59 +0000 (+0200)
Subject: Instrument function if it hasn't been already in edebug-set-breakpoint
X-Git-Tag: emacs-27.0.90~967
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0794354b2435579b73e6ccf7feaa4b947050a5e5;p=emacs.git

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).
---

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 ()