diff options
| author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2015-08-16 19:30:39 +0200 |
|---|---|---|
| committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2015-08-16 19:30:39 +0200 |
| commit | 17a225621c73b4990bd4458924a249aa0a11650e (patch) | |
| tree | a71d44911b56bc2d76a218e73462b319996c7d9c | |
| parent | 55544780e28a157aea0218cb8045ebfdcb6d98ab (diff) | |
| download | org-mode-17a225621c73b4990bd4458924a249aa0a11650e.tar.gz | |
ox-odt: Small refactoring
* lisp/ox-odt.el (org-odt-footnote-reference): Small refactoring.
| -rw-r--r-- | lisp/ox-odt.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/lisp/ox-odt.el b/lisp/ox-odt.el index c98d9c3..ffe8b2e 100644 --- a/lisp/ox-odt.el +++ b/lisp/ox-odt.el @@ -1784,11 +1784,12 @@ CONTENTS is nil. INFO is a plist holding contextual information." info)))) ;; Inline definitions are secondary strings. We ;; need to wrap them within a paragraph. - (if (org-element-map raw org-element-all-elements - #'identity info t) + (if (memq (org-element-type (car (org-element-contents raw))) + org-element-all-elements) def - (format "\n<text:p text:style-name=\"%s\">%s</text:p>" - "Footnote" def))))) + (format + "\n<text:p text:style-name=\"Footnote\">%s</text:p>" + def))))) (funcall --format-footnote-definition n def)))))))) |