jiri/org-ql
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix: (org-ql-view--contract-buffers-files) Non-existent org-directory

Browse source 
Fixes #138.  Fixes #139.  Thanks to Matt Huszagh (@matthuszagh) for
reporting.

This *actually* fixes those issues.  The 0.4.7 release is related to
those issues, but those issues actually arose in code added to
0.5-pre.
This commit is contained in:
Adam Porter 2020-11-16 02:37:49 -06:00
parent 7b1919c2d5
commit 7770285002
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
org-ql-view.el
View file

@ -1039,7 +1039,9 @@ current buffer. Otherwise BUFFERS-FILES is returned unchanged."
(pcase (expand-files buffers-files) (pcase (expand-files buffers-files)
((pred (seq-set-equal-p (mapcar #'expand-file-name (org-agenda-files)))) ((pred (seq-set-equal-p (mapcar #'expand-file-name (org-agenda-files))))
"org-agenda-files") "org-agenda-files")
((pred (seq-set-equal-p (org-ql-search-directories-files))) ((and (guard (file-exists-p org-directory))
(pred (seq-set-equal-p (org-ql-search-directories-files
:directories (list org-directory)))))
"org-directory") "org-directory")
(_ buffers-files))) (_ buffers-files)))
((pred (equal (current-buffer))) ((pred (equal (current-buffer)))