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

Allow changing the buffer org-ql-occur runs on

Browse source
This commit is contained in:
Akira Komamura 2019-08-24 19:40:19 +09:00
parent f8e0f01672
commit 2cd612d1ba
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
org-ql.el
View file

@ -1003,7 +1003,7 @@ A and B are Org headline elements."
;;;; Functions/Occur ;;;; Functions/Occur
(cl-defun org-ql-occur (query &key keep-previous) (cl-defun org-ql-occur (query &key (buffer (current-buffer)) keep-previous)
"Make a compact tree which shows all matches of the query. "Make a compact tree which shows all matches of the query.
QUERY is an `org-ql' query sexp (quoted, since this is a QUERY is an `org-ql' query sexp (quoted, since this is a
@ -1019,7 +1019,7 @@ will be kept, to allow stacking of calls to this command."
(unless keep-previous (unless keep-previous
(org-remove-occur-highlights nil nil t)) (org-remove-occur-highlights nil nil t))
;; (push (cons regexp callback) org-occur-parameters) ;; (push (cons regexp callback) org-occur-parameters)
(let ((result (org-ql-select (current-buffer) query (let ((result (org-ql-select buffer query
:action :action
(lambda () (lambda ()
(when org-highlight-sparse-tree-matches (when org-highlight-sparse-tree-matches