Fix: (org-ql-view--contract-buffers-files) Don't check file exists

If the buffer has no filename, this will signal an error.
This commit is contained in:
Adam Porter 2020-11-11 19:54:13 -06:00
parent f8d671a7b8
commit 2bed84aa1e

View file

@ -1032,7 +1032,7 @@ current buffer. Otherwise BUFFERS-FILES is returned unchanged."
"buffer")
((or 'org-agenda-files '(function org-agenda-files))
"org-agenda-files")
((and (pred bufferp) (guard (file-exists-p (buffer-file-name buffers-files))))
((and (pred bufferp) (guard (buffer-file-name buffers-files)))
(buffer-file-name buffers-files))
(_ (let ((print-length nil))
(prin1-to-string buffers-files))))))