diff options
author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2020-05-09 18:35:11 +0200 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2020-05-09 18:35:11 +0200 |
commit | 3435b05922c933a510c821749f3d267660915444 (patch) | |
tree | db79fdd3f75a9b338a5a3a32b16c7a2316c3d787 | |
parent | 86ec470bfcbe53800f82369db8b53c1911fccaee (diff) | |
download | org-mode-3435b05922c933a510c821749f3d267660915444.tar.gz |
Do not move point when cycling subtree visibility
* lisp/org.el (org-cycle-hide-property-drawers): Fix a bug introduced
in 1027e0256903bc2c4ef9edfb1f7279294fa3f195.
-rw-r--r-- | lisp/org.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/org.el b/lisp/org.el index 2a09d1a..3be85c5 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))) |