Ver código fonte

ox-odt: Small refactoring

* lisp/ox-odt.el (org-odt--translate-latex-fragments): Small
  refactoring.
Nicolas Goaziou 10 anos atrás
pai
commit
fc850ce623
1 arquivos alterados com 6 adições e 5 exclusões
  1. 6 5
      lisp/ox-odt.el

+ 6 - 5
lisp/ox-odt.el

@@ -3801,7 +3801,8 @@ contextual information."
 				 (file-name-nondirectory input-file))))
 		 (display-msg
 		  (case processing-type
-		    ((dvipng imagemagick) (format "Creating LaTeX Image %d..." count))
+		    ((dvipng imagemagick)
+		     (format "Creating LaTeX Image %d..." count))
 		    (mathml (format "Creating MathML snippet %d..." count))))
 		 ;; Get an Org-style link to PNG image or the MathML
 		 ;; file.
@@ -3819,10 +3820,10 @@ contextual information."
 	    (when org-link
 	      ;; Conversion succeeded.  Parse above Org-style link to
 	      ;; a `link' object.
-	      (let* ((link (org-element-map
-			       (org-element-parse-secondary-string
-				org-link '(paragraph link))
-			       'link #'identity info t))
+	      (let* ((link
+		      (org-element-map
+			  (org-element-parse-secondary-string org-link '(link))
+			  'link #'identity info t))
 		     (replacement
 		      (case (org-element-type latex-*)
 			;; Case 1: LaTeX environment.  Mimic