From 2777b3fd4c7d33291ba68baae9c24e0ad1fc8aa2 Mon Sep 17 00:00:00 2001
From: Nicolas Goaziou <mail@nicolasgoaziou.fr>
Date: Fri, 1 May 2015 09:23:35 +0200
Subject: [PATCH] org-element: Tolerate missing space after colon in keywords

* lisp/org-element.el (org-element--set-regexps):
(org-element--affiliated-re): Tolerate missing space after colon in
keywords.
---
 lisp/org-element.el | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/lisp/org-element.el b/lisp/org-element.el
index abefde8d5..7aab9f63a 100644
--- a/lisp/org-element.el
+++ b/lisp/org-element.el
@@ -164,7 +164,7 @@ specially in `org-element--object-lex'.")
 		;; double-checked.
 		"#\\(?: \\|$\\|\\+\\(?:"
 		"BEGIN_\\S-+" "\\|"
-		"\\S-+\\(?:\\[.*\\]\\)?:\\(?: \\|$\\)\\)\\)"
+		"\\S-+\\(?:\\[.*\\]\\)?:[ \t]*\\)\\)"
 		"\\|"
 		;; Drawers (any type) and fixed-width areas.  Drawers
 		;; need to be double-checked.
@@ -324,7 +324,7 @@ This list is checked after translations have been applied.  See
 `org-element-keyword-translation-alist'.")
 
 (defconst org-element--affiliated-re
-  (format "[ \t]*#\\+\\(?:%s\\):\\(?: \\|$\\)"
+  (format "[ \t]*#\\+\\(?:%s\\):[ \t]*"
 	  (concat
 	   ;; Dual affiliated keywords.
 	   (format "\\(?1:%s\\)\\(?:\\[\\(.*\\)\\]\\)?"
@@ -334,8 +334,7 @@ This list is checked after translations have been applied.  See
 	   (format "\\(?1:%s\\)"
 		   (regexp-opt
 		    (org-remove-if
-		     #'(lambda (keyword)
-			 (member keyword org-element-dual-keywords))
+		     (lambda (k) (member k org-element-dual-keywords))
 		     org-element-affiliated-keywords)))
 	   "\\|"
 	   ;; Export attributes.