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

org-element: Small optimization 

* lisp/org-element.el (org-element-at-point): Do not call
  `outline-next-heading' when an element at top level contains point.
  This is particularly important when the current section ends way
  after the point.
This commit is contained in:
Nicolas Goaziou 2014-01-19 15:06:09 +01:00
parent cd3bc12a29
commit fd877a7380
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/org-element.el
View File

@ -4800,8 +4800,7 @@ element ending there."
((eobp) (setq element up))
(t (setq element up next (point))))))))
;; Parse successively each element until we reach ORIGIN.
(let ((end (or (org-element-property
:contents-end (org-element-property :parent element))
(let ((end (or (org-element-property :end element)
(save-excursion
(org-with-limited-levels (outline-next-heading))
(point))))