[nongnu] elpa/pacmacs 609416d41a 057/472: Fix delete minibuffer or sole ordinary window error. Close #42

[ELPA Syncer]

branch: elpa/pacmacs
commit 609416d41a86de66bde19f8abeb24fc74b80a759
Author: rexim <reximkut@gmail.com>
Commit: rexim <reximkut@gmail.com>

    Fix delete minibuffer or sole ordinary window error. Close #42
---
 pacman.el | 13 +++++++++----
 1 file changed, 9 insertions(+), 4 deletions(-)

diff --git a/pacman.el b/pacman.el
index 47e9a73026..ced8f1a934 100644
--- a/pacman.el
+++ b/pacman.el
@@ -105,13 +105,18 @@
     (cancel-timer pacman-timer)
     (setq pacman-timer nil)))
 
+(defun pacman--kill-buffer-and-its-window (buffer-or-name)
+  (let ((buffer-window (get-buffer-window buffer-or-name)))
+    (if (and buffer-window
+             (window-parent buffer-window))
+        (with-current-buffer buffer-or-name
+          (kill-buffer-and-window))
+      (kill-buffer buffer-or-name))))
+
 (defun pacman-quit ()
   (interactive)
   (when (get-buffer pacman-buffer-name)
-    (with-current-buffer pacman-buffer-name
-      (if (get-buffer-window pacman-buffer-name)
-          (kill-buffer-and-window)
-        (kill-buffer pacman-buffer-name)))))
+    (pacman--kill-buffer-and-its-window pacman-buffer-name)))
 
 (defun pacman-step-object (game-object)
   (let* ((row (plist-get game-object :row))