Add: (org-ql-select) Accept a function for buffers-files

2019-10-02 11:58:28 -05:00 · 2019-10-02 11:58:28 -05:00 · c286ab1967
commit c286ab1967
parent e60e217312
3 changed files with 4 additions and 4 deletions
--- a/org-ql-view.el
+++ b/org-ql-view.el
@ -210,9 +210,6 @@ Interactively, prompt for NAME."
    (cl-typecase view
      (function (call-interactively view))
      (list (-let* (((&plist :buffers-files :query :sort :narrow :super-groups :title) view)
-                    (buffers-files (cl-typecase buffers-files
-                                     (function (funcall buffers-files))
-                                     (list buffers-files)))
                    (super-groups (cl-typecase super-groups
                                    (symbol (symbol-value super-groups))
                                    (list super-groups))))