From 0794354b2435579b73e6ccf7feaa4b947050a5e5 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Sun, 20 Oct 2019 12:25:59 +0200 Subject: [PATCH] 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 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 () -- 2.39.2