From 6d5b614fc5844420b3c3f5e0aec184e1e9027c04 Mon Sep 17 00:00:00 2001 From: Adam Porter Date: Mon, 2 Oct 2023 22:52:25 -0500 Subject: [PATCH] Fix: (org-ql-find) Interactive form Fixes silly mistake in ab720689e9385795efa34d787fcfb7d0e5d0bb38. --- org-ql-find.el | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/org-ql-find.el b/org-ql-find.el index b5db3c8..154f934 100644 --- a/org-ql-find.el +++ b/org-ql-find.el @@ -78,11 +78,10 @@ single predicate)." when (eq 'org-mode (buffer-local-value 'major-mode buffer)) collect (buffer-name buffer)) nil t)) - (pcase major-mode - ((pred (derived-mode-p 'org-agenda-mode)) (or org-ql-view-buffers-files - org-agenda-contributing-files)) - ((pred (derived-mode-p 'org-mode)) (current-buffer)) - (_ (user-error "This is not an Org-related buffer: %S" (current-buffer))))))) + (cond ((derived-mode-p 'org-agenda-mode) (or org-ql-view-buffers-files + org-agenda-contributing-files)) + ((derived-mode-p 'org-mode) (current-buffer)) + (t (user-error "This is not an Org-related buffer: %S" (current-buffer))))))) (let ((marker (org-ql-completing-read buffers-files :query-prefix query-prefix :query-filter query-filter