tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

org-element-section-parser: Optimize performance 

* lisp/org-element.el (org-element-section-parser): Call
`re-search-forward' directly instead of using `outline-next-heading'.
This commit is contained in:
Ihor Radchenko 2023-04-26 15:07:32 +02:00
parent 9d304d371e
commit bfa362c47d
No known key found for this signature in database
GPG Key ID: 6470762A7DA11D8B
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/org-element.el
View File

@ -1858,14 +1858,15 @@ containing `:begin', `:end', `:contents-begin', `contents-end',
;; Beginning of section is the beginning of the first non-blank
;; line after previous headline.
(let* ((begin (point))
(end (progn (org-with-limited-levels (outline-next-heading))
(point)))
(end
(if (re-search-forward (org-get-limited-outline-regexp t) nil 'move)
(goto-char (match-beginning 0))
(point)))
(pos-before-blank (progn (skip-chars-backward " \r\t\n")
(line-beginning-position 2)))
(robust-end (when (> (- pos-before-blank 2) begin)
(- pos-before-blank 2)))
(robust-begin (when robust-end begin))
)
(robust-begin (when robust-end begin)))
(list 'section
(list :begin begin
:end end