branch: externals/org
commit 036939b5b175f50479c06917f544eb08cf24e826
Author: Daniel Fleischer <danfl...@gmail.com>
Commit: Daniel Fleischer <danfl...@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
