From 77702850026722ebea730e2124288e826060180e Mon Sep 17 00:00:00 2001 From: Adam Porter Date: Mon, 16 Nov 2020 02:37:49 -0600 Subject: [PATCH] Fix: (org-ql-view--contract-buffers-files) Non-existent org-directory 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. --- org-ql-view.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/org-ql-view.el b/org-ql-view.el index 8e8d40b..e44c658 100644 --- a/org-ql-view.el +++ b/org-ql-view.el @@ -1039,7 +1039,9 @@ current buffer. Otherwise BUFFERS-FILES is returned unchanged." (pcase (expand-files buffers-files) ((pred (seq-set-equal-p (mapcar #'expand-file-name (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") (_ buffers-files))) ((pred (equal (current-buffer)))