emacs-elpa-diffs
[Top][All Lists]
Advanced

[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))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]