summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <mail@nicolasgoaziou.fr>2015-05-01 09:23:35 +0200
committerNicolas Goaziou <mail@nicolasgoaziou.fr>2015-05-01 09:23:35 +0200
commit2777b3fd4c7d33291ba68baae9c24e0ad1fc8aa2 (patch)
tree60ca88a14a0e4492edd6b4a62530ad8e472b6b10
parent14f5b132184ac9c0492d8cc94345413b85ef3f55 (diff)
downloadorg-mode-2777b3fd4c7d33291ba68baae9c24e0ad1fc8aa2.tar.gz
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.
-rw-r--r--lisp/org-element.el7
1 files changed, 3 insertions, 4 deletions
diff --git a/lisp/org-element.el b/lisp/org-element.el
index abefde8..7aab9f6 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.