From 3435b05922c933a510c821749f3d267660915444 Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Sat, 9 May 2020 18:35:11 +0200 Subject: [PATCH] Do not move point when cycling subtree visibility * lisp/org.el (org-cycle-hide-property-drawers): Fix a bug introduced in 1027e0256903bc2c4ef9edfb1f7279294fa3f195. --- lisp/org.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/org.el b/lisp/org.el index 2a09d1ac4..3be85c55f 100644 --- a/lisp/org.el +++ b/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)))