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

org-element: Tiny refactoring

Browse source 
* lisp/org-element.el (org-element-headline-parser): Tiny refactoring.
This commit is contained in:
Nicolas Goaziou 2014-04-09 23:49:04 +02:00
parent 1b7d3ffcbf
commit a768cf045d
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

@ -800,8 +800,7 @@ Assume point is at beginning of the headline."
(t (setq plist (plist-put plist :closed time))))))
plist))))
(begin (point))
(end (save-excursion
(goto-char (min (org-end-of-subtree t t) limit))))
(end (min (save-excursion (org-end-of-subtree t t)) limit))
(pos-after-head (progn (forward-line) (point)))
(contents-begin (save-excursion
(skip-chars-forward " \r\t\n" end)