Home Explore Help
Sign In
swflint
/
org-mode-mirror
1
0
Fork 0
Files Issues 0 Pull Requests 0 Wiki
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 5 years ago
parent
86ec470bfc
commit
3435b05922
1 changed files with 1 additions and 1 deletions
Unified View Show Diff Stats
  1. 1 1
      lisp/org.el

+ 1 - 1
lisp/org.el
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)))
 
 	   (beg (if global? (point-min) (line-beginning-position)))
 
 	   (end (cond (global? (point-max))
 
 	   (end (cond (global? (point-max))
 
 		      ((eq state 'children) (org-entry-end-position))
 
 		      ((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
 
       (org-with-point-at beg
 
 	(while (re-search-forward org-property-start-re (max end (point)) t)
 
 	(while (re-search-forward org-property-start-re (max end (point)) t)
 
 	  (let ((start (match-end 0)))
 
 	  (let ((start (match-end 0)))