diff options
author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2016-10-28 15:46:22 +0200 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2016-10-28 15:46:22 +0200 |
commit | 4f9ec1adeb980a309aa9b6a643cff8fcfbf0f275 (patch) | |
tree | b579944aac06a0a450e69ebec7a55b450b4167bc | |
parent | 33f8f8adaaa2a2458f7489f0ec714a230e981823 (diff) | |
download | org-mode-4f9ec1adeb980a309aa9b6a643cff8fcfbf0f275.tar.gz |
org-element: Fix export of LaTeX math in headlines
* lisp/org-element.el (org-element-class): Find pseudo-objects in
secondary strings.
* testing/lisp/test-org-element.el (test-org-element/class): Add test.
This bug was introduced in 1a88cf920e5090c311f77ba3f74183aa51253fb5.
Reported-by: Stefanos Carlström <stefanos.carlstrom@gmail.com>
<http://permalink.gmane.org/gmane.emacs.orgmode/109922>
-rw-r--r-- | lisp/org-element.el | 1 | ||||
-rw-r--r-- | testing/lisp/test-org-element.el | 8 |
2 files changed, 8 insertions, 1 deletions
diff --git a/lisp/org-element.el b/lisp/org-element.el index 963c541..0793f75 100644 --- a/lisp/org-element.el +++ b/lisp/org-element.el @@ -539,6 +539,7 @@ value of DATUM `:parent' property." (let ((parent-type (org-element-type parent))) (cond ((not parent-type) 'object) ((memq parent-type org-element-object-containers) 'object) + ((org-element-secondary-p datum) 'object) (t 'element))))))) (defsubst org-element-adopt-elements (parent &rest children) diff --git a/testing/lisp/test-org-element.el b/testing/lisp/test-org-element.el index 9a20723..c348cc9 100644 --- a/testing/lisp/test-org-element.el +++ b/testing/lisp/test-org-element.el @@ -156,7 +156,13 @@ Some other text ;; Pseudo objects. (should (eq 'object (org-element-class '(foo nil) '(bold nil)))) (should (eq 'object (org-element-class '(foo nil) '(paragraph nil)))) - (should (eq 'object (org-element-class '(foo nil) '("secondary"))))) + (should (eq 'object (org-element-class '(foo nil) '("secondary")))) + (should + (eq 'object + (let* ((datum '(foo nil)) + (headline `(headline (:title (,datum))))) + (org-element-put-property datum :parent headline) + (org-element-class datum))))) (ert-deftest test-org-element/adopt-elements () "Test `org-element-adopt-elements' specifications." |