[elpa] externals/bufferlo 83586af819 07/37: Fix empty buffer list

[ELPA Syncer]

branch: externals/bufferlo
commit 83586af8194fabe0f4297a10e8a805b0589f722d
Author: Florian Rommel <mail@florommel.de>
Commit: Florian Rommel <mail@florommel.de>

    Fix empty buffer list
---
 bufferlo.el | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/bufferlo.el b/bufferlo.el
index f63e5dcdde..7d431e6036 100644
--- a/bufferlo.el
+++ b/bufferlo.el
@@ -206,7 +206,14 @@ This is a list of regular expressions that match buffer 
names."
          (buffers (delete-dups (append buffers incl-buffers))))
     ;; FIXME: Currently all the included buffers are put into the 'buffer-list,
     ;;        even if they were in the 'buried-buffer-list before.
-    (set-frame-parameter frame 'buffer-list buffers)))
+    (set-frame-parameter frame 'buffer-list
+                         ;; The current buffer must be always on the list,
+                         ;; otherwise the buffer list gets replaced later.
+                         (push (if frame
+                                   (with-selected-frame frame (current-buffer))
+                                 (current-buffer))
+                               buffers))
+    (set-frame-parameter frame 'buried-buffer-list nil)))
 
 (defun bufferlo--tab-include-exclude-buffers (ignore)
   "Include and exclude buffers into buffer-list of the current tab's FRAME."