[elpa] externals/org c9b655f273 3/5: org-activate-folds: Skip over folded newlines faster

[ELPA Syncer]

branch: externals/org
commit c9b655f2739e09962e99cee689f372cd8b928cd4
Author: Ihor Radchenko <yantar92@posteo.net>
Commit: Ihor Radchenko <yantar92@posteo.net>

    org-activate-folds: Skip over folded newlines faster
    
    * lisp/org.el (org-activate-folds): When searching next unfolded
    newline skip over folded newlines faster, using org-fold-core API.
---
 lisp/org.el | 1 +
 1 file changed, 1 insertion(+)

diff --git a/lisp/org.el b/lisp/org.el
index 33d90506bf..40a100fd4e 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -5812,6 +5812,7 @@ highlighting was done, nil otherwise."
   "Arrange trailing newlines after folds to inherit face before the fold."
   (let ((next-unfolded-newline (search-forward "\n" limit 'move)))
     (while (and next-unfolded-newline (org-fold-folded-p) (not (eobp)))
+      (goto-char (org-fold-core-next-visibility-change nil limit))
       (setq next-unfolded-newline (search-forward "\n" limit 'move)))
     (when next-unfolded-newline
       (org-with-wide-buffer