[nongnu] elpa/subed 6391996 056/389: Kill debugging buffer+window in subed-disable-debugging

[ELPA Syncer]

branch: elpa/subed
commit 639199603c8aceb824f2e5897d40b83350ca437f
Author: Random User <rndusr@posteo.de>
Commit: Random User <rndusr@posteo.de>

    Kill debugging buffer+window in subed-disable-debugging
---
 subed/subed.el | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/subed/subed.el b/subed/subed.el
index 9bf3bd1..ee44491 100644
--- a/subed/subed.el
+++ b/subed/subed.el
@@ -78,10 +78,7 @@
       (with-current-buffer debug-buffer
         (buffer-disable-undo)
         (setq-local buffer-read-only t)))
-    (add-hook 'kill-buffer-hook (lambda ()
-                                  (kill-buffer subed-debug-buffer)
-                                  (delete-window (get-buffer-window 
subed-debug-buffer)))
-              :append :local)))
+    (add-hook 'kill-buffer-hook 'subed-disable-debugging :append :local)))
 
 (defun subed-disable-debugging ()
   "Display debugging messages in separate window and set
@@ -90,7 +87,11 @@
   (when subed--debug-enabled
     (setq subed--debug-enabled nil
           debug-on-error nil)
-    (delete-window (get-buffer-window subed-debug-buffer))))
+    (let ((debug-window (get-buffer-window subed-debug-buffer)))
+      (when debug-window
+        (delete-window debug-window)))
+    (kill-buffer subed-debug-buffer)
+    (remove-hook 'kill-buffer-hook 'subed-disable-debugging :local)))
 
 (defun subed-toggle-debugging ()
   "Display or hide debugging messages in separate window and set