From 5e1ece42910bfab80538d1ac5ac1d940e4fbb631 Mon Sep 17 00:00:00 2001
From: Henrik Lissner <henrik@lissner.net>
Date: Tue, 8 Aug 2017 14:09:49 +0200
Subject: [PATCH] test/autoload/buffers: fix dead buffers in buffer-list

---
 core/test/autoload-buffers.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/core/test/autoload-buffers.el b/core/test/autoload-buffers.el
index b4ba44aa6..abf5c4245 100644
--- a/core/test/autoload-buffers.el
+++ b/core/test/autoload-buffers.el
@@ -8,7 +8,9 @@
       (push `(,bsym (get-buffer-create ,(symbol-name bsym)))
             buffers))
     `(save-window-excursion
-       (cl-flet ((buffer-list (lambda () (list ,@(reverse (mapcar #'car buffers))))))
+       (cl-flet ((buffer-list
+                  (lambda ()
+                    (cl-remove-if-not #'buffer-live-p (list ,@(reverse (mapcar #'car buffers)))))))
          (let* (persp-mode
                 ,@buffers)
            ,@body