summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDaniel Pettersson <daniel@dpettersson.net>2026-04-26 01:25:15 +0200
committerDaniel Pettersson <daniel@dpettersson.net>2026-04-26 01:25:15 +0200
commit0b89094a99ffb219630ba1f5b7b07c67f919269c (patch)
treee318e6743d4bae406a63edc46972cd74c767991b
parentc8800ea78c118b70b631b8f892af3f4242db2296 (diff)
Harden buffer killing
-rw-r--r--dape.el6
1 files changed, 4 insertions, 2 deletions
diff --git a/dape.el b/dape.el
index d6e1938..09ce527 100644
--- a/dape.el
+++ b/dape.el
@@ -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.