Fix: (org-ql--query) Error if run in non-Org-derived buffer

2018-08-22 16:40:06 -05:00 · 2018-08-22 16:40:06 -05:00 · db6543b18c
commit db6543b18c
parent a3aac8466b
1 changed files with 2 additions and 0 deletions
--- a/org-ql.el
+++ b/org-ql.el
@ -117,6 +117,8 @@ a list of defined `org-ql' sorting methods: `date', `deadline',
                                          (user-error "Can't open file: %s" it)))))
                     ;; Filter buffers (i.e. select items)
                     (--map (with-current-buffer it
+                              (unless (derived-mode-p 'org-mode)
+                                (user-error "Not an Org buffer: %s" (buffer-name)))
                              (org-ql--select-cached :predicate predicate :action action :narrow narrow)))
                     ;; Flatten items
                     (-flatten-n 1))))