forked from mirrors/org-mode
Merge branch 'maint'
This commit is contained in:
commit
ce4143e79d
|
@ -2838,7 +2838,7 @@ returned by the function."
|
|||
(when new
|
||||
;; Splice NEW at BLOB location in parse tree.
|
||||
(dolist (e new (org-element-extract-element blob))
|
||||
(unless (string= e "") (org-element-insert-before e blob))))))
|
||||
(unless (equal e "") (org-element-insert-before e blob))))))
|
||||
info nil nil t)
|
||||
;; Return modified parse tree.
|
||||
data)
|
||||
|
|
|
@ -820,6 +820,16 @@ Paragraph <2012-03-29 Thu>[2012-03-29 Thu]"
|
|||
(paragraph . (lambda (p c i) c))
|
||||
(section . (lambda (s c i) c))))
|
||||
nil nil nil '(:with-sub-superscript {})))))
|
||||
(should
|
||||
(equal "a_entity\n"
|
||||
(org-test-with-temp-text "a_\\alpha"
|
||||
(org-export-as
|
||||
(org-export-create-backend
|
||||
:transcoders '((entity . (lambda (e c i) "entity"))
|
||||
(subscript . (lambda (s c i) "dummy"))
|
||||
(paragraph . (lambda (p c i) c))
|
||||
(section . (lambda (s c i) c))))
|
||||
nil nil nil '(:with-sub-superscript nil)))))
|
||||
;; Also handle uninterpreted objects in title.
|
||||
(should
|
||||
(equal "a_b"
|
||||
|
|
Loading…
Reference in a new issue