mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-11-26 07:33:39 +00:00
Code

org-element: Fix parsing of planning in inline tasks

Browse Source 
* lisp/org-element.el (org-element--next-mode): Line following an
  inlinetask can be a planning.
* testing/lisp/test-org-element.el (test-org-element/inlinetask-parser):
  Update test.

Reported-by: Gregor Zattler <telegraph@gmx.net>
<http://permalink.gmane.org/gmane.emacs.orgmode/101958>
This commit is contained in:
Nicolas Goaziou 2015-10-16 23:19:06 +02:00
parent 0ee8ba3e0d
commit 9de1ee1b6f
2 changed files with 16 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lisp/org-element.el
View File

@ -4183,6 +4183,7 @@ otherwise. Modes can be either `first-section', `item',
(if parentp
(case type
(headline 'section)
(inlinetask 'planning)
(plain-list 'item)
(property-drawer 'node-property)
(section 'planning)

19
testing/lisp/test-org-element.el
View File

@ -1221,17 +1221,28 @@ Contents
;; Planning info.
(should
(org-test-with-temp-text "
*************** Task
*************** Task<point>
DEADLINE: <2012-03-29 thu.>
*************** END"
(forward-line)
(org-element-property :deadline (org-element-at-point))))
(should
(eq 'planning
(org-test-with-temp-text "
*************** Task
<point>DEADLINE: <2012-03-29 thu.>
*************** END"
(org-element-type (org-element-at-point)))))
(should-not
(org-test-with-temp-text "
*************** Task
*************** Task<point>
DEADLINE: <2012-03-29 thu.>"
(forward-line)
(org-element-property :deadline (org-element-at-point))))
(should-not
(eq 'planning
(org-test-with-temp-text "
*************** Task
<point>DEADLINE: <2012-03-29 thu.>"
(org-element-type (org-element-at-point)))))
;; Priority.
(should
(eq