emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

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

Browse source
This commit is contained in:
Henrik Lissner 2017-08-08 14:09:49 +02:00
parent 7af0dd8545
commit 5e1ece4291
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
core/test/autoload-buffers.el
View file

@ -8,7 +8,9 @@
(push `(,bsym (get-buffer-create ,(symbol-name bsym))) (push `(,bsym (get-buffer-create ,(symbol-name bsym)))
buffers)) buffers))
`(save-window-excursion `(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 (let* (persp-mode
,@buffers) ,@buffers)
,@body ,@body