forked from mirrors/org-mode
org-e-texinfo.el: Tiny formatting and code fix
* org-e-texinfo.el (org-e-texinfo-table-column-widths): Remove a quote before a lambda expression.
This commit is contained in:
parent
7e466ea883
commit
be70cfd084
|
@ -783,7 +783,7 @@ holding export options."
|
||||||
detail-menu
|
detail-menu
|
||||||
"\n\n"
|
"\n\n"
|
||||||
"@end detailmenu\n"))
|
"@end detailmenu\n"))
|
||||||
"@end menu\n"))
|
"@end menu\n"))
|
||||||
"\n\n"
|
"\n\n"
|
||||||
|
|
||||||
;; Document's body.
|
;; Document's body.
|
||||||
|
@ -1563,10 +1563,10 @@ a communication channel."
|
||||||
(push (loop for count from 0 to (- number-cells 1) collect
|
(push (loop for count from 0 to (- number-cells 1) collect
|
||||||
(loop for item in cells collect
|
(loop for item in cells collect
|
||||||
(nth count item))) counts)
|
(nth count item))) counts)
|
||||||
(mapconcat '(lambda (size)
|
(mapconcat (lambda (size)
|
||||||
(make-string size ?a)) (mapcar (lambda (ref)
|
(make-string size ?a)) (mapcar (lambda (ref)
|
||||||
(apply 'max `,@ref)) (car counts))
|
(apply 'max `,@ref)) (car counts))
|
||||||
"} {")))
|
"} {")))
|
||||||
|
|
||||||
(defun org-e-texinfo-table--org-table (table contents info)
|
(defun org-e-texinfo-table--org-table (table contents info)
|
||||||
"Return appropriate Texinfo code for an Org table.
|
"Return appropriate Texinfo code for an Org table.
|
||||||
|
|
Loading…
Reference in a new issue