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

Fixes #380.

Reported-by: Omar Antolín Camarena <omar@matem.unam.mx>

README.org

@@ -547,6 +547,7 @@ Simple links may also be written manually in either sexp or non-sexp form, like:
 *Fixes*
 + Disable ~case-fold-search~ when collecting headings in outline paths.  (Headings that started with a word that is also a to-do keyword but with different capitalization would be matched incorrectly.)
 + Saving of ~org-ql-view~ views.  ([[https://github.com/alphapapa/org-ql/issues/378][#378]].  Thanks to [[https://github.com/Pentaquark1][Pentaquark1]] for reporting.)
++ Command ~org-ql-find~ didn't move point to the selected entry.  ([[https://github.com/alphapapa/org-ql/issues/380][#380]].  Thanks to [[https://github.com/oantolin][Omar Antolín Camarena]] for reporting.)
 
 ** 0.7.2
 

org-ql-find.el

@@ -84,10 +84,11 @@ single predicate)."
                   :query-prefix query-prefix
                   :query-filter query-filter
                   :prompt prompt)))
-    (org-with-point-at marker
+    (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))))
+    (run-hook-with-args 'org-ql-find-goto-hook)))
 
 ;;;###autoload
 (defun org-ql-refile (marker)

org-ql.info

@@ -1037,6 +1037,9 @@ File: README.info,  Node: 073-pre,  Next: 072,  Up: Changelog
    • Saving of ‘org-ql-view’ views.  (#378
      (https://github.com/alphapapa/org-ql/issues/378).  Thanks to
      Pentaquark1 (https://github.com/Pentaquark1) for reporting.)
+   • Command ‘org-ql-find’ didn’t move point to the selected entry.
+     (#380 (https://github.com/alphapapa/org-ql/issues/380).  Thanks to
+     Omar Antolín Camarena (https://github.com/oantolin) for reporting.)
 
 
 File: README.info,  Node: 072,  Next: 071,  Prev: 073-pre,  Up: Changelog
@@ -1799,38 +1802,38 @@ Node: Links37271
 Node: Tips37958
 Node: Changelog38282
 Node: 073-pre39081
-Node: 07239591
+Node: 07239813
-Node: 07140514
+Node: 07140736
-Node: 0741323
+Node: 0741545
-Node: 06344247
+Node: 06344469
-Node: 06244778
+Node: 06245000
-Node: 06145083
+Node: 06145305
-Node: 0645651
+Node: 0645873
-Node: 05248705
+Node: 05248927
-Node: 05149005
+Node: 05149227
-Node: 0549430
+Node: 0549652
-Node: 04950961
+Node: 04951183
-Node: 04851243
+Node: 04851465
-Node: 04751592
+Node: 04751814
-Node: 04652001
+Node: 04652223
-Node: 04552409
+Node: 04552631
-Node: 04452770
+Node: 04452992
-Node: 04353129
+Node: 04353351
-Node: 04253332
+Node: 04253554
-Node: 04153493
+Node: 04153715
-Node: 0453740
+Node: 0453962
-Node: 03257841
+Node: 03258063
-Node: 03158244
+Node: 03158466
-Node: 0358441
+Node: 0358663
-Node: 02361741
+Node: 02361963
-Node: 02261975
+Node: 02262197
-Node: 02162255
+Node: 02162477
-Node: 0262460
+Node: 0262682
-Node: 0166538
+Node: 0166760
-Node: Notes66639
+Node: Notes66861
-Node: Comparison with Org Agenda searches66801
+Node: Comparison with Org Agenda searches67023
-Node: org-sidebar67690
+Node: org-sidebar67912
-Node: License67969
+Node: License68191
 
 End Tag Table