From f12f9543fc4b59121dfd3ef0087aef333b141c18 Mon Sep 17 00:00:00 2001
From: Nicolas Goaziou <mail@nicolasgoaziou.fr>
Date: Sun, 29 Jun 2014 15:25:54 +0200
Subject: [PATCH] org-element: Tiny fix

* lisp/org-element.el (org-element-headline-parser): Do not assume
  property drawers are correctly formed.
---
 lisp/org-element.el | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/lisp/org-element.el b/lisp/org-element.el
index f6a92e551..22cd108b1 100644
--- a/lisp/org-element.el
+++ b/lisp/org-element.el
@@ -839,13 +839,13 @@ Assume point is at beginning of the headline."
 			(when end
 			  (forward-line)
 			  (while (< (point) end)
-			    (looking-at org-property-re)
-			    (setq plist
-				  (plist-put
-				   plist
-				   (intern
-				    (concat ":" (upcase (match-string 2))))
-				   (org-match-string-no-properties 3)))
+			    (when (looking-at org-property-re)
+			      (setq plist
+				    (plist-put
+				     plist
+				     (intern
+				      (concat ":" (upcase (match-string 2))))
+				     (org-match-string-no-properties 3))))
 			    (forward-line)))))))
 		plist)))
 	   (time-props
-- 
2.11.4.GIT