From 631cd80ce870b5bec6609eea8f0f4123876bf1cf Mon Sep 17 00:00:00 2001
From: Adam Porter <adam@alphapapa.net>
Date: Mon, 23 Oct 2023 01:23:54 -0500
Subject: [PATCH] Fix: (org-ql-find) Go to selected entry
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Fixes #380.

Reported-by: Omar Antolín Camarena <omar@matem.unam.mx>
---
 README.org     |  1 +
 org-ql-find.el |  9 ++++---
 org-ql.info    | 67 ++++++++++++++++++++++++++------------------------
 3 files changed, 41 insertions(+), 36 deletions(-)

diff --git a/README.org b/README.org
index 4bc9605..4ad1187 100644
--- a/README.org
+++ b/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
 
diff --git a/org-ql-find.el b/org-ql-find.el
index e3b9a49..768f0af 100644
--- a/org-ql-find.el
+++ b/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
-      (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)
diff --git a/org-ql.info b/org-ql.info
index 891b2e0..eef7814 100644
--- a/org-ql.info
+++ b/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: 07140514
-Node: 0741323
-Node: 06344247
-Node: 06244778
-Node: 06145083
-Node: 0645651
-Node: 05248705
-Node: 05149005
-Node: 0549430
-Node: 04950961
-Node: 04851243
-Node: 04751592
-Node: 04652001
-Node: 04552409
-Node: 04452770
-Node: 04353129
-Node: 04253332
-Node: 04153493
-Node: 0453740
-Node: 03257841
-Node: 03158244
-Node: 0358441
-Node: 02361741
-Node: 02261975
-Node: 02162255
-Node: 0262460
-Node: 0166538
-Node: Notes66639
-Node: Comparison with Org Agenda searches66801
-Node: org-sidebar67690
-Node: License67969
+Node: 07239813
+Node: 07140736
+Node: 0741545
+Node: 06344469
+Node: 06245000
+Node: 06145305
+Node: 0645873
+Node: 05248927
+Node: 05149227
+Node: 0549652
+Node: 04951183
+Node: 04851465
+Node: 04751814
+Node: 04652223
+Node: 04552631
+Node: 04452992
+Node: 04353351
+Node: 04253554
+Node: 04153715
+Node: 0453962
+Node: 03258063
+Node: 03158466
+Node: 0358663
+Node: 02361963
+Node: 02262197
+Node: 02162477
+Node: 0262682
+Node: 0166760
+Node: Notes66861
+Node: Comparison with Org Agenda searches67023
+Node: org-sidebar67912
+Node: License68191
 
 End Tag Table