test/autoload/buffers: fix dead buffers in buffer-list

2017-08-08 14:09:49 +02:00 · 2017-08-08 14:09:49 +02:00 · 5e1ece4291
commit 5e1ece4291
parent 7af0dd8545
1 changed files with 3 additions and 1 deletions
--- 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