Skip to content

Commit

Permalink
Merge: v0.8.3
Browse files Browse the repository at this point in the history
  • Loading branch information
alphapapa committed Jan 10, 2024
2 parents 5b00262 + 7d8bd8b commit 6679bde
Showing 3 changed files with 145 additions and 110 deletions.
6 changes: 6 additions & 0 deletions README.org
Original file line number Diff line number Diff line change
@@ -557,6 +557,12 @@ Simple links may also be written manually in either sexp or non-sexp form, like:

Nothing new yet.

** 0.8.3

*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

*Fixes*
15 changes: 14 additions & 1 deletion org-ql-find.el
Original file line number Diff line number Diff line change
@@ -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)
Loading

0 comments on commit 6679bde

Please sign in to comment.