[nongnu] elpa/idris-mode 8933ab84f9 4/4: Merge pull request #556 from keram/kill-buf-and-win-main

[ELPA Syncer]

branch: elpa/idris-mode
commit 8933ab84f9713b2b7b49c953cb0c23e3918b6c89
Merge: 740cae73c7 b6a5b2ec60
Author: Jan de Muijnck-Hughes <jfdm@users.noreply.github.com>
Commit: GitHub <noreply@github.com>

    Merge pull request #556 from keram/kill-buf-and-win-main
    
    Kill Idris buffer and it's window if it was the only buffer in windows 
history.
---
 idris-common-utils.el | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/idris-common-utils.el b/idris-common-utils.el
index faa04814b5..5e981d6243 100644
--- a/idris-common-utils.el
+++ b/idris-common-utils.el
@@ -73,7 +73,11 @@ Lisp package.")
               ((bufferp buffer)
                buffer)
               (t (message "don't know how to kill buffer")))))
-    (when (and buf (buffer-live-p buf)) (kill-buffer buf))))
+    (when (and buf (buffer-live-p buf))
+      (let ((win (get-buffer-window buf)))
+        (kill-buffer buf)
+        (when (null (window-prev-buffers win))
+          (delete-window win))))))
 
 (defun idris-minibuffer-respecting-message (text &rest args)
   "Display TEXT as a message, without hiding any minibuffer contents."