org-element: Tiny fix

* lisp/org-element.el (org-element-headline-parser): Do not assume property drawers are correctly formed.
2014-06-29 15:25:54 +02:00 · 2014-06-29 15:25:54 +02:00 · f12f9543fc
parent 49f3c6e558
commit f12f9543fc
1 changed files with 7 additions and 7 deletions
--- 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