Browse Source

Do not widen when folding all drawers

* lisp/org.el (org-cycle-hide-drawers): Do not widen drawer.
Nicolas Goaziou 5 years ago
parent
commit
c709187173
1 changed files with 2 additions and 1 deletions
  1. 2 1
      lisp/org.el

+ 2 - 1
lisp/org.el

@@ -6145,7 +6145,8 @@ STATE should be one of the symbols listed in the docstring of
 	   (end (cond (global? (point-max))
 		      ((eq state 'children) (org-entry-end-position))
 		      (t (save-excursion (org-end-of-subtree t t))))))
-      (org-with-point-at beg
+      (save-excursion
+	(goto-char beg)
 	(while (re-search-forward org-drawer-regexp end t)
 	  (pcase (get-char-property-and-overlay (point) 'invisible)
 	    ;; Do not fold already folded drawers.