[elpa] externals/org 036939b5b1: lisp/ox-latex.el: indentation, small refactor

[ELPA Syncer]

branch: externals/org
commit 036939b5b175f50479c06917f544eb08cf24e826
Author: Daniel Fleischer <danflscr@gmail.com>
Commit: Daniel Fleischer <danflscr@gmail.com>

    lisp/ox-latex.el: indentation, small refactor
    
    * lisp/ox-latex.el (org-latex-table-cell): indentation, parenthesis
    convention, combining 2 `let' blocks.
---
 lisp/ox-latex.el | 17 +++++++----------
 1 file changed, 7 insertions(+), 10 deletions(-)

diff --git a/lisp/ox-latex.el b/lisp/ox-latex.el
index 70a6cd2dbc..32b48a4839 100644
--- a/lisp/ox-latex.el
+++ b/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