diff options
| author | Daniel Pettersson <daniel@dpettersson.net> | 2026-04-26 01:25:15 +0200 |
|---|---|---|
| committer | Daniel Pettersson <daniel@dpettersson.net> | 2026-04-26 01:25:15 +0200 |
| commit | 0b89094a99ffb219630ba1f5b7b07c67f919269c (patch) | |
| tree | e318e6743d4bae406a63edc46972cd74c767991b | |
| parent | c8800ea78c118b70b631b8f892af3f4242db2296 (diff) | |
Harden buffer killing
| -rw-r--r-- | dape.el | 6 |
1 files changed, 4 insertions, 2 deletions
@@ -1250,6 +1250,7 @@ as is." On SKIP-PROCESS-BUFFERS skip deletion of buffers which has processes." (cl-loop for buffer in (buffer-list) when (and + (buffer-live-p buffer) (buffer-match-p '(or "\\*dape-source .+\\*" "\\*dape-.+ events\\*" @@ -1261,7 +1262,6 @@ On SKIP-PROCESS-BUFFERS skip deletion of buffers which has processes." (major-mode . dape-disassemble-mode) (derived-mode . dape-info-parent-mode)) buffer) - (buffer-live-p buffer) (not (and skip-process-buffers (get-buffer-process buffer)))) do @@ -2643,7 +2643,9 @@ SKIP-COMPILE is used internally for recursive calls." (delete-process proc) (accept-process-output nil 0.1) (kill-buffer (process-buffer proc)) - (kill-buffer (jsonrpc-stderr-buffer conn)))) + (kill-buffer (jsonrpc-stderr-buffer conn)) + (unless dape-debug + (kill-buffer (jsonrpc-events-buffer conn))))) (defun dape-kill (conn &optional cb with-disconnect) "Kill debug session. |
