diff --git a/README.org b/README.org index c485caa..52740c7 100644 --- a/README.org +++ b/README.org @@ -555,7 +555,9 @@ Simple links may also be written manually in either sexp or non-sexp form, like: ** 0.8.3-pre -Nothing new yet. +*Fixes* + ++ Command ~org-ql-find~ incorrectly moved point. (See [[https://github.com/alphapapa/org-ql/issues/380#issuecomment-1881913025][#380]]. Thanks to [[https://github.com/oantolin][Omar Antolín Camarena]] for reporting.) ** 0.8.2 diff --git a/org-ql-find.el b/org-ql-find.el index 3e517c6..591e958 100644 --- a/org-ql-find.el +++ b/org-ql-find.el @@ -78,7 +78,20 @@ single predicate)." (set-buffer (marker-buffer marker)) (pop-to-buffer (current-buffer) org-ql-find-display-buffer-action) (without-restriction - (run-hook-with-args 'org-ql-find-goto-hook)))) + (goto-char marker) + (run-hook-with-args 'org-ql-find-goto-hook)) + (when (equal (current-buffer) (marker-buffer marker)) + ;; Ensure point is still within visible portion of buffer. (If + ;; `org-tree-to-indirect-buffer' is used in `org-ql-find-goto-hook', + ;; the buffer will have been changed and it won't matter; otherwise, + ;; the buffer could have been narrowed to a region excluding the + ;; selected entry.) + (let ((end-of-subtree (org-with-point-at marker + (org-end-of-subtree 'invisible-ok)))) + (unless (and (<= (point-min) marker) + (>= (point-max) end-of-subtree)) + (widen) + (goto-char marker)))))) ;;;###autoload (defun org-ql-refile (marker) diff --git a/org-ql.info b/org-ql.info index e10accc..174bbb1 100644 --- a/org-ql.info +++ b/org-ql.info @@ -1072,7 +1072,12 @@ File: README.info, Node: 083-pre, Next: 082, Up: Changelog 5.1 0.8.3-pre ============= -Nothing new yet. +*Fixes* + + • Command ‘org-ql-find’ incorrectly moved point. (See #380 + (https://github.com/alphapapa/org-ql/issues/380#issuecomment-1881913025). + Thanks to Omar Antolín Camarena (https://github.com/oantolin) for + reporting.)  File: README.info, Node: 082, Next: 081, Prev: 083-pre, Up: Changelog @@ -1948,43 +1953,43 @@ Node: Links38855 Node: Tips39542 Node: Changelog39866 Node: 083-pre40732 -Node: 08240844 -Node: 08141241 -Node: 0841662 -Node: 07444386 -Node: 07344609 -Node: 07245341 -Node: 07146260 -Node: 0747069 -Node: 06349933 -Node: 06250466 -Node: 06150773 -Node: 0651343 -Node: 05254399 -Node: 05154701 -Node: 0555126 -Node: 04956657 -Node: 04856939 -Node: 04757288 -Node: 04657697 -Node: 04558105 -Node: 04458466 -Node: 04358825 -Node: 04259028 -Node: 04159189 -Node: 0459436 -Node: 03263537 -Node: 03163940 -Node: 0364137 -Node: 02367437 -Node: 02267671 -Node: 02167951 -Node: 0268156 -Node: 0172234 -Node: Notes72335 -Node: Comparison with Org Agenda searches72497 -Node: org-sidebar73386 -Node: License73665 +Node: 08241073 +Node: 08141470 +Node: 0841891 +Node: 07444615 +Node: 07344838 +Node: 07245570 +Node: 07146489 +Node: 0747298 +Node: 06350162 +Node: 06250695 +Node: 06151002 +Node: 0651572 +Node: 05254628 +Node: 05154930 +Node: 0555355 +Node: 04956886 +Node: 04857168 +Node: 04757517 +Node: 04657926 +Node: 04558334 +Node: 04458695 +Node: 04359054 +Node: 04259257 +Node: 04159418 +Node: 0459665 +Node: 03263766 +Node: 03164169 +Node: 0364366 +Node: 02367666 +Node: 02267900 +Node: 02168180 +Node: 0268385 +Node: 0172463 +Node: Notes72564 +Node: Comparison with Org Agenda searches72726 +Node: org-sidebar73615 +Node: License73894  End Tag Table