summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <mail@nicolasgoaziou.fr>2016-10-28 15:46:22 +0200
committerNicolas Goaziou <mail@nicolasgoaziou.fr>2016-10-28 15:46:22 +0200
commit4f9ec1adeb980a309aa9b6a643cff8fcfbf0f275 (patch)
treeb579944aac06a0a450e69ebec7a55b450b4167bc
parent33f8f8adaaa2a2458f7489f0ec714a230e981823 (diff)
downloadorg-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.el1
-rw-r--r--testing/lisp/test-org-element.el8
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."