Преглед изворни кода

ox-odt: Small refactoring

* lisp/ox-odt.el (org-odt-footnote-reference): Small refactoring.
Nicolas Goaziou пре 9 година
родитељ
комит
17a225621c
1 измењених фајлова са 5 додато и 4 уклоњено
  1. 5 4
      lisp/ox-odt.el

+ 5 - 4
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))))))))