check for existance of org-directory before searching it

2020-08-24 15:39:04 -07:00 · 2020-08-24 15:39:04 -07:00 · 5e715c6424
commit 5e715c6424
parent 6633dbb276
1 changed files with 2 additions and 1 deletions
--- a/org-ql-search.el
+++ b/org-ql-search.el
@ -240,7 +240,8 @@ automatically from the query."
 When RECURSE is non-nil, recurse into subdirectories.  When
 REGEXP is non-nil, only return files that match REGEXP."
  (let ((files (->> directories
-                    (--map (f-files it nil recurse))
+                    (--map (if (f-exists-p it)
+                               (f-files it nil recurse)))
                    -flatten)))
    (if regexp
        (--select (string-match regexp it)