Browse Source

Do not move point when cycling subtree visibility

* lisp/org.el (org-cycle-hide-property-drawers): Fix a bug introduced
in 1027e0256903bc2c4ef9edfb1f7279294fa3f195.
Nicolas Goaziou 1 month ago
parent
commit
3435b05922
1 changed files with 1 additions and 1 deletions
  1. 1 1
      lisp/org.el

+ 1 - 1
lisp/org.el

@@ -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)))