Skip to content

Commit 036939b

Browse files
lisp/ox-latex.el: indentation, small refactor
* lisp/ox-latex.el (org-latex-table-cell): indentation, parenthesis convention, combining 2 `let' blocks.
1 parent 9193cf6 commit 036939b

File tree

1 file changed

+7
-10
lines changed

1 file changed

+7
-10
lines changed

lisp/ox-latex.el

Lines changed: 7 additions & 10 deletions
Original file line numberDiff line numberDiff line change
@@ -3930,11 +3930,10 @@ This function assumes TABLE has `org' as its `:type' property and
39303930
"Transcode a TABLE-CELL element from Org to LaTeX.
39313931
CONTENTS is the cell contents. INFO is a plist used as
39323932
a communication channel."
3933-
(let (
3934-
(type (org-export-read-attribute :attr_latex (org-export-get-parent-table table-cell) :mode))
3935-
)
3936-
(concat
3937-
(let ((scientific-format (plist-get info :latex-table-scientific-notation)))
3933+
(let ((type (org-export-read-attribute
3934+
:attr_latex (org-export-get-parent-table table-cell) :mode))
3935+
(scientific-format (plist-get info :latex-table-scientific-notation)))
3936+
(concat
39383937
(if (and contents
39393938
scientific-format
39403939
(string-match orgtbl-exp-regexp contents))
@@ -3943,11 +3942,9 @@ a communication channel."
39433942
(format scientific-format
39443943
(match-string 1 contents)
39453944
(match-string 2 contents))
3946-
contents))
3947-
(when (org-export-get-next-element table-cell info)
3948-
(if (string= type "tabbing")
3949-
" \\> " " & ")
3950-
))))
3945+
contents)
3946+
(when (org-export-get-next-element table-cell info)
3947+
(if (string= type "tabbing") " \\> " " & ")))))
39513948

39523949

39533950
;;;; Table Row

0 commit comments

Comments
 (0)