Буду признателен, если добавите сюда пропуск буферов начинающихся со звёздочки, заранее спасибо:
(defun tabbar-buffer-list ()
"Return the list of buffers to show in tabs.
Exclude buffers whose name starts with a space, when they are not
visiting a file."
(delq t
(mapcar #'(lambda (b)
(cond
((buffer-file-name b) b)
((char-equal ?\ (aref (buffer-name b) 0)))
(b)))
(buffer-list))))
