Do not move point when cycling subtree visibility

* lisp/org.el (org-cycle-hide-property-drawers): Fix a bug introduced
in 1027e02569.
This commit is contained in:
Nicolas Goaziou 2020-05-09 18:35:11 +02:00
parent 86ec470bfc
commit 3435b05922
1 changed files with 1 additions and 1 deletions

View File

@ -6140,7 +6140,7 @@ STATE should be one of the symbols listed in the docstring of
(beg (if global? (point-min) (line-beginning-position)))
(end (cond (global? (point-max))
((eq state 'children) (org-entry-end-position))
(t (org-end-of-subtree t)))))
(t (save-excursion (org-end-of-subtree t))))))
(org-with-point-at beg
(while (re-search-forward org-property-start-re (max end (point)) t)
(let ((start (match-end 0)))