jiri/org-ql
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix: (org-ql-find) Interactive form

Browse source 
Fixes silly mistake in ab720689e9.
This commit is contained in:
Adam Porter 2023-10-02 22:52:25 -05:00
parent ab720689e9
commit 6d5b614fc5
1 changed files with 4 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

9
org-ql-find.el
View file

@ -78,11 +78,10 @@ single predicate)."
when (eq 'org-mode (buffer-local-value 'major-mode buffer)) when (eq 'org-mode (buffer-local-value 'major-mode buffer))
collect (buffer-name buffer)) collect (buffer-name buffer))
nil t)) nil t))
(pcase major-mode (cond ((derived-mode-p 'org-agenda-mode) (or org-ql-view-buffers-files
((pred (derived-mode-p 'org-agenda-mode)) (or org-ql-view-buffers-files org-agenda-contributing-files))
org-agenda-contributing-files)) ((derived-mode-p 'org-mode) (current-buffer))
((pred (derived-mode-p 'org-mode)) (current-buffer)) (t (user-error "This is not an Org-related buffer: %S" (current-buffer)))))))
(_ (user-error "This is not an Org-related buffer: %S" (current-buffer)))))))
(let ((marker (org-ql-completing-read buffers-files (let ((marker (org-ql-completing-read buffers-files
:query-prefix query-prefix :query-prefix query-prefix
:query-filter query-filter :query-filter query-filter