Fix: Use equal to compare lists

This commit is contained in:
Akira Komamura 2024-06-18 21:15:18 +09:00
parent d5269bb5e2
commit 7d9ff6e6a6

View file

@ -186,7 +186,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'