Explorar el Código

lisp/ox-latex.el: indentation, small refactor

* lisp/ox-latex.el (org-latex-table-cell): indentation, parenthesis
convention, combining 2 `let' blocks.
Daniel Fleischer hace 2 años
padre
commit
036939b5b1
Se han modificado 1 ficheros con 7 adiciones y 10 borrados
  1. 7 10
      lisp/ox-latex.el

+ 7 - 10
lisp/ox-latex.el

@@ -3930,11 +3930,10 @@ This function assumes TABLE has `org' as its `:type' property and
   "Transcode a TABLE-CELL element from Org to LaTeX.
 CONTENTS is the cell contents.  INFO is a plist used as
 a communication channel."
-  (let (
-        (type (org-export-read-attribute :attr_latex (org-export-get-parent-table table-cell) :mode))
-        )
-  (concat
-   (let ((scientific-format (plist-get info :latex-table-scientific-notation)))
+  (let ((type (org-export-read-attribute
+               :attr_latex (org-export-get-parent-table table-cell) :mode))
+        (scientific-format (plist-get info :latex-table-scientific-notation)))
+    (concat
      (if (and contents
 	      scientific-format
 	      (string-match orgtbl-exp-regexp contents))
@@ -3943,11 +3942,9 @@ a communication channel."
 	 (format scientific-format
 		 (match-string 1 contents)
 		 (match-string 2 contents))
-       contents))
-   (when (org-export-get-next-element table-cell info)
-         (if (string= type "tabbing")
-             " \\> " " & ")
-         ))))
+       contents)
+     (when (org-export-get-next-element table-cell info)
+       (if (string= type "tabbing") " \\> " " & ")))))
 
 
 ;;;; Table Row