Fix: (org-ql-find) Go to selected entry

Fixes #380.

Reported-by: Omar Antolín Camarena <omar@matem.unam.mx>
This commit is contained in:
Adam Porter 2023-10-23 01:23:54 -05:00
parent de80f9a764
commit 631cd80ce8
3 changed files with 41 additions and 36 deletions

View file

@ -84,10 +84,11 @@ single predicate)."
:query-prefix query-prefix
:query-filter query-filter
:prompt prompt)))
(org-with-point-at marker
(display-buffer (current-buffer) org-ql-find-display-buffer-action)
(select-window (get-buffer-window (current-buffer)))
(run-hook-with-args 'org-ql-find-goto-hook))))
(set-buffer (marker-buffer marker))
(goto-char marker)
(display-buffer (current-buffer) org-ql-find-display-buffer-action)
(select-window (get-buffer-window (current-buffer)))
(run-hook-with-args 'org-ql-find-goto-hook)))
;;;###autoload
(defun org-ql-refile (marker)