aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorLars Ingebrigtsen2019-10-21 22:22:06 +0200
committerLars Ingebrigtsen2019-10-21 22:22:16 +0200
commit7e5f3a809109fc9643739bea2113563805618df2 (patch)
treed647b6f862b3bc1311a2e1d2864960483cec5b7a
parent73cea54064828197f9db256fb4b925ef6be85861 (diff)
downloademacs-7e5f3a809109fc9643739bea2113563805618df2.tar.gz
emacs-7e5f3a809109fc9643739bea2113563805618df2.zip
Ensure we always remove the breakpoint overlays
* lisp/emacs-lisp/edebug.el (edebug--display-1): Remove the overlays here -- this cleans up after exiting no matter how we exited.
-rw-r--r--lisp/emacs-lisp/edebug.el2
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/edebug.el b/lisp/emacs-lisp/edebug.el
index 0c3164b5cb8..9c85ae3dd3d 100644
--- a/lisp/emacs-lisp/edebug.el
+++ b/lisp/emacs-lisp/edebug.el
@@ -2845,6 +2845,7 @@ See `edebug-behavior-alist' for implementations.")
2845 (goto-char edebug-buffer-outside-point)) 2845 (goto-char edebug-buffer-outside-point))
2846 ;; ... nothing more. 2846 ;; ... nothing more.
2847 ) 2847 )
2848 (edebug--overlay-breakpoints-remove (point-min) (point-max))
2848 ;; Could be an option to keep eval display up. 2849 ;; Could be an option to keep eval display up.
2849 (if edebug-eval-buffer (kill-buffer edebug-eval-buffer)) 2850 (if edebug-eval-buffer (kill-buffer edebug-eval-buffer))
2850 (with-timeout-unsuspend edebug-with-timeout-suspend) 2851 (with-timeout-unsuspend edebug-with-timeout-suspend)
@@ -2944,7 +2945,6 @@ See `edebug-behavior-alist' for implementations.")
2944 (setq signal-hook-function #'edebug-signal) 2945 (setq signal-hook-function #'edebug-signal)
2945 (if edebug-backtrace-buffer 2946 (if edebug-backtrace-buffer
2946 (kill-buffer edebug-backtrace-buffer)) 2947 (kill-buffer edebug-backtrace-buffer))
2947 (edebug--overlay-breakpoints-remove (point-min) (point-max))
2948 2948
2949 ;; Remember selected-window after recursive-edit. 2949 ;; Remember selected-window after recursive-edit.
2950 ;; (setq edebug-inside-window (selected-window)) 2950 ;; (setq edebug-inside-window (selected-window))