Explorar el Código

ox-odt: Small refactoring

* lisp/ox-odt.el (org-odt-footnote-reference): Small refactoring.
Nicolas Goaziou hace 9 años
padre
commit
17a225621c
Se han modificado 1 ficheros con 5 adiciones y 4 borrados
  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))))))))