]> git.eshelyaron.com Git - emacs.git/commitdiff
Fix up previous edebug breakpoint overlay change
authorLars Ingebrigtsen <larsi@gnus.org>
Sun, 20 Oct 2019 10:16:56 +0000 (12:16 +0200)
committerLars Ingebrigtsen <larsi@gnus.org>
Sun, 20 Oct 2019 10:17:28 +0000 (12:17 +0200)
* lisp/emacs-lisp/edebug.el (edebug--overlay-breakpoints): Only
make the overlays in edebug mode, so that we remove them when we
exit.

lisp/emacs-lisp/edebug.el

index a19ac3bc602fe0aa4052f4ba6f380fdd424df1c6..e0bf52af4736b2904b9597eca63b1dfe4c056a61 100644 (file)
@@ -3198,12 +3198,14 @@ the breakpoint."
     ;; First remove all old breakpoint overlays.
     (edebug--overlay-breakpoints-remove
      start (+ start (aref offsets (1- (length offsets)))))
-    ;; Then make overlays for the breakpoints.
-    (dolist (breakpoint breakpoints)
-      (let* ((pos (+ start (aref offsets (car breakpoint))))
-             (overlay (make-overlay pos (1+ pos))))
-        (overlay-put overlay 'edebug t)
-        (overlay-put overlay 'face 'highlight)))))
+    ;; Then make overlays for the breakpoints (but only when we are in
+    ;; edebug mode).
+    (when edebug-active
+      (dolist (breakpoint breakpoints)
+        (let* ((pos (+ start (aref offsets (car breakpoint))))
+               (overlay (make-overlay pos (1+ pos))))
+          (overlay-put overlay 'edebug t)
+          (overlay-put overlay 'face 'highlight))))))
 
 (defun edebug--overlay-breakpoints-remove (start end)
   (dolist (overlay (overlays-in start end))