Fix: (org-ql-view--contract-buffers-files) Handle org-agenda-files

This commit is contained in:
Adam Porter 2020-03-08 11:12:49 -05:00
parent 3349c1d07a
commit 996d648560

View file

@ -841,6 +841,8 @@ current buffer. Otherwise BUFFERS-FILES is returned unchanged."
(concat "'" (prin1-to-string buffers-files)))))) (concat "'" (prin1-to-string buffers-files))))))
((pred (equal (current-buffer))) ((pred (equal (current-buffer)))
"buffer") "buffer")
((or 'org-agenda-files '(function org-agenda-files))
"org-agenda-files")
(_ (let ((print-length nil)) (_ (let ((print-length nil))
(prin1-to-string buffers-files)))))) (prin1-to-string buffers-files))))))