diff options
| author | Nicolas Goaziou <n.goaziou@gmail.com> | 2013-11-03 17:47:55 +0100 |
|---|---|---|
| committer | Nicolas Goaziou <n.goaziou@gmail.com> | 2013-11-03 17:51:12 +0100 |
| commit | 757f00811d0bdf1e17562eeb4331d872d720f136 (patch) | |
| tree | 3301544084cc9cc3bfc7fb990159c249817fd77a | |
| parent | d61ce8edd116cb9c1c1de378cd3420f748251961 (diff) | |
| download | org-mode-757f00811d0bdf1e17562eeb4331d872d720f136.tar.gz | |
org-element: Fix error when parsing lowercase keywords
* lisp/org-element.el (org-element-context): Fix error when parsing
affiliated keywords, e.g. "caption".
* testing/lisp/test-org-element.el: Add test.
| -rw-r--r-- | lisp/org-element.el | 5 | ||||
| -rw-r--r-- | testing/lisp/test-org-element.el | 5 |
2 files changed, 8 insertions, 2 deletions
diff --git a/lisp/org-element.el b/lisp/org-element.el index 873c4bb..c148cac 100644 --- a/lisp/org-element.el +++ b/lisp/org-element.el @@ -4856,9 +4856,10 @@ Providing it allows for quicker computation." ((let ((post (org-element-property :post-affiliated element))) (and post (< origin post))) (beginning-of-line) - (looking-at org-element--affiliated-re) + (let ((case-fold-search t)) (looking-at org-element--affiliated-re)) (cond - ((not (member (upcase (match-string 1)) org-element-parsed-keywords)) + ((not (member-ignore-case (match-string 1) + org-element-parsed-keywords)) (throw 'objects-forbidden element)) ((< (match-end 0) origin) (narrow-to-region (match-end 0) (line-end-position))) diff --git a/testing/lisp/test-org-element.el b/testing/lisp/test-org-element.el index ffa01c7..1237288 100644 --- a/testing/lisp/test-org-element.el +++ b/testing/lisp/test-org-element.el @@ -2961,6 +2961,11 @@ Paragraph \\alpha." (org-test-with-temp-text "#+CAPTION: {{{macro}}}\n| a | b |." (progn (search-forward "{") (org-element-type (org-element-context)))))) + (should + (eq 'bold + (org-test-with-temp-text "#+caption: *bold*\nParagraph" + (progn (search-forward "*") + (org-element-type (org-element-context)))))) ;; Correctly set `:parent' property. (should (eq 'paragraph |