diff options
| author | Lars Ingebrigtsen | 2019-10-21 22:22:06 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2019-10-21 22:22:16 +0200 |
| commit | 7e5f3a809109fc9643739bea2113563805618df2 (patch) | |
| tree | d647b6f862b3bc1311a2e1d2864960483cec5b7a | |
| parent | 73cea54064828197f9db256fb4b925ef6be85861 (diff) | |
| download | emacs-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.el | 2 |
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)) |