[elpa] externals/buffer-expose e48ee91 6/9: Cleanup empty buffers on exit

[Clemens Radermacher]

branch: externals/buffer-expose
commit e48ee910040893307d63b65ca6cce0917c9cf657
Author: Clemens Radermacher <address@hidden>
Commit: Clemens Radermacher <address@hidden>

    Cleanup empty buffers on exit
---
 buffer-expose.el | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/buffer-expose.el b/buffer-expose.el
index 5ec81ab..609056c 100644
--- a/buffer-expose.el
+++ b/buffer-expose.el
@@ -683,6 +683,11 @@ Window config is a list of (window . buffer) cells."
     (setf (window-buffer (car wb))
           (cdr wb))))
 
+(defun buffer-expose--reset-empty-buffers ()
+  (dolist (buf (buffer-list))
+    (when (buffer-local-value 'buffer-expose--empty-buffer buf)
+      (kill-buffer buf))))
+
 (defun buffer-expose-reset ()
   "Exit overview, restore and reset state."
   (interactive)
@@ -692,6 +697,7 @@ Window config is a list of (window . buffer) cells."
     (funcall buffer-expose--cancel-overriding-map-function))
   (set-window-configuration buffer-expose--initial-window-config)
   (buffer-expose-reset-buffers)
+  (buffer-expose--reset-empty-buffers)
   (buffer-expose-reset-modes)
   (buffer-expose-reset-vars)
   (buffer-expose-reset-vars-internal))