diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2019-11-01 17:42:22 +0100 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2019-11-01 17:42:28 +0100 |
| commit | 0714d6664cd2e836d425d00951bbe599af553952 (patch) | |
| tree | 5c9a0afa8c02b1ad761d0e0a8ebee465eae0e13f /lisp/emacs-lisp | |
| parent | 64a1541175ffac58eeba0b4811b1d20d3434c5bf (diff) | |
| download | emacs-0714d6664cd2e836d425d00951bbe599af553952.tar.gz emacs-0714d6664cd2e836d425d00951bbe599af553952.tar.bz2 emacs-0714d6664cd2e836d425d00951bbe599af553952.zip | |
Really enable setting a breakpoint without instrumenting first
* lisp/emacs-lisp/edebug.el (edebug-set-breakpoint): Really enable
setting a breakpoint without instrumenting first (bug#23469).
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/edebug.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/edebug.el b/lisp/emacs-lisp/edebug.el index 237d93922ff..d81052318cb 100644 --- a/lisp/emacs-lisp/edebug.el +++ b/lisp/emacs-lisp/edebug.el @@ -3276,7 +3276,9 @@ 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))) + (let ((data (get (edebug--form-data-name + (edebug-get-form-data-entry (point))) + 'edebug))) (or (null data) (markerp data)))) (edebug-defun)) (edebug-modify-breakpoint t nil arg)) |