[elpa] externals/org 5a1dd94309 078/101: org-element: Avoid slow `end-of-line'

[ELPA Syncer]

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

    org-element: Avoid slow `end-of-line'
    
    Link: https://debbugs.gnu.org/cgi/bugreport.cgi?bug=63225#98
---
 lisp/org-element.el | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/lisp/org-element.el b/lisp/org-element.el
index 0f7ec2a40e..d29d99b6b0 100644
--- a/lisp/org-element.el
+++ b/lisp/org-element.el
@@ -1409,7 +1409,7 @@ Assume point is at beginning of the inline task."
              nil #'org-element--headline-parse-title raw-secondary-p))
            (begin (point))
           (task-end (save-excursion
-                      (end-of-line)
+                      (forward-line 1)
                       (and (re-search-forward org-element-headline-re limit t)
                            (looking-at-p "[ \t]*END[ \t]*$")
                            (line-beginning-position))))
@@ -2051,7 +2051,7 @@ Return a new syntax node of `clock' type containing 
`:status',
           (post-blank (let ((before-blank (progn (forward-line) (point))))
                         (skip-chars-forward " \r\t\n" limit)
                         (skip-chars-backward " \t")
-                        (unless (bolp) (end-of-line))
+                        (unless (bolp) (skip-chars-forward " \t"))
                         (count-lines before-blank (point))))
           (end (point)))
       (org-element-create
@@ -2685,7 +2685,7 @@ Return a new syntax node of `planning' type containing 
`:closed',
           (post-blank (let ((before-blank (progn (forward-line) (point))))
                         (skip-chars-forward " \r\t\n" limit)
                         (skip-chars-backward " \t")
-                        (unless (bolp) (end-of-line))
+                        (unless (bolp) (skip-chars-forward " \t"))
                         (count-lines before-blank (point))))
           (end (point))
           closed deadline scheduled)
@@ -6550,7 +6550,7 @@ the expected result."
       (org-with-wide-buffer
        (goto-char pos)
        (save-excursion
-         (end-of-line)
+         (forward-line 1)
          (skip-chars-backward " \r\t\n")
          ;; Within blank lines at the beginning of buffer, return nil.
          (when (bobp) (throw 'exit nil)))
@@ -6576,7 +6576,7 @@ the expected result."
           ;; Parse from previous heading to avoid re-parsing the whole
           ;; buffer above.  Arrange `:parent' to be calculated on demand.
           ((not cached)
-           (end-of-line) ; ensure the end of current heading.
+           (forward-line 1) ; ensure the end of current heading.
            (if (re-search-backward
                 (org-get-limited-outline-regexp t)
                 nil 'move)