[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/detached 2c90e4a63d 1/2: Add optional debug messages in
From: |
ELPA Syncer |
Subject: |
[elpa] externals/detached 2c90e4a63d 1/2: Add optional debug messages in detached-session-kill |
Date: |
Fri, 25 Nov 2022 05:57:31 -0500 (EST) |
branch: externals/detached
commit 2c90e4a63d6ab4ebe26dc1ccafaa197928c46a39
Author: Niklas Eklund <niklas.eklund@posteo.net>
Commit: Niklas Eklund <niklas.eklund@posteo.net>
Add optional debug messages in detached-session-kill
---
detached.el | 4 ++++
1 file changed, 4 insertions(+)
diff --git a/detached.el b/detached.el
index 416a05f6df..0d30343e9f 100644
--- a/detached.el
+++ b/detached.el
@@ -1088,10 +1088,14 @@ session validation."
;; Attach to session
(with-current-buffer buffer
(let
((detached-show-session-context nil))
+ (when detached-debug-enabled
+ (message "Kill function
attaching to session %s" (detached-session-id session)))
(detached-shell-attach-session
session))
(run-with-timer termination-delay
nil
(lambda ()
;; Send
termination signal to session
+ (when
detached-debug-enabled
+ (message "Kill
function sending termination signal to session %s" (detached-session-id
session)))
(with-current-buffer buffer
(call-interactively #'comint-interrupt-subjob)
(let
((kill-buffer-query-functions nil))