* lisp/tab-line.el (tab-line-tabs-buffer-list): Use window-prev-buffers too.

* lisp/tab-line.el (tab-line-tabs-buffer-list): Move window-prev-buffers here
from tab-line-tabs-buffer-groups.

diff --git a/lisp/tab-line.el b/lisp/tab-line.el
index 6f5b40657a9fe34cd2fa8b8ee5cfcb2a0361f32f..7701498ae296f1433d69681280444f9caf475108 100644 (file)
--- a/lisp/tab-line.el
+++ b/lisp/tab-line.el
@@ -288,7 +288,9 @@ Used only for `tab-line-tabs-mode-buffers' and `tab-line-tabs-buffer-groups'.")
 (defun tab-line-tabs-buffer-list ()
   (seq-filter (lambda (b) (and (buffer-live-p b)
                                (/= (aref (buffer-name b) 0) ?\s)))
-              (buffer-list)))
+              (seq-uniq (append (list (current-buffer))
+                                (mapcar #'car (window-prev-buffers))
+                                (buffer-list)))))
 
 (defun tab-line-tabs-mode-buffers ()
   "Return a list of buffers with the same major mode with current buffer."
@@ -363,11 +365,8 @@ If the major mode's name string matches REGEXP, use GROUPNAME instead.")
                                      (set-window-parameter nil 'tab-line-hscroll nil)))))
            (buffers
             (seq-filter (lambda (b)
-                          (equal (tab-line-tabs-buffer-group-name b)
-                                 group))
-                        (seq-uniq (append (list (current-buffer))
-                                          (mapcar #'car (window-prev-buffers))
-                                          (funcall tab-line-tabs-buffer-list-function)))))
+                          (equal (tab-line-tabs-buffer-group-name b) group))
+                        (funcall tab-line-tabs-buffer-list-function)))
            (sorted-buffers (if (functionp tab-line-tabs-buffer-group-sort-function)
                                (seq-sort tab-line-tabs-buffer-group-sort-function
                                          buffers)