Fix: (org-ql-find) Use org-with-point-at

I keep pointing out to other people that they should use
org-with-point-at, but I still have places in my own code where I need
to use it, too!
This commit is contained in:
Adam Porter 2023-09-26 13:41:07 -05:00
parent 8412d1a23d
commit be20dc3d5b
3 changed files with 34 additions and 33 deletions

View file

@ -83,8 +83,7 @@ single predicate)."
:query-prefix query-prefix
:query-filter query-filter
:prompt prompt)))
(with-current-buffer (marker-buffer marker)
(goto-char marker)
(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))))