Fix: (org-ql-search) Interactive narrowing

Fixes #430.  Closes #436.

Reported-by: Akira Komamura <akira.komamura@gmail.com>
This commit is contained in:
Adam Porter 2024-06-26 10:41:58 -05:00
parent 4af08e37f9
commit 914e64746f
3 changed files with 45 additions and 42 deletions

View file

@ -184,7 +184,7 @@ necessary."
(interactive (list (org-ql-view--complete-buffers-files)
(read-string "Query: " (when org-ql-view-query
(format "%S" org-ql-view-query)))
:narrow (or org-ql-view-narrow (eq current-prefix-arg '(4)))
:narrow (or org-ql-view-narrow (equal current-prefix-arg '(4)))
:super-groups (org-ql-view--complete-super-groups)
:sort (org-ql-view--complete-sort)))
;; NOTE: Using `with-temp-buffer' is a hack to work around the fact that `make-local-variable'