|
@@ -1626,20 +1626,20 @@ CONTENTS is nil. INFO is a plist holding contextual information."
|
|
|
(alignment (plist-get table-info :alignment))
|
|
|
(clean-table (org-export-clean-table raw-table special-col-p))
|
|
|
;; Change table into lisp, much like
|
|
|
- ;; `org-table-to-lisp', being more careful about keeping
|
|
|
- ;; the exact length of cells, for alignment purpose.
|
|
|
- ;; Cells are parsed and transcoded along the way.
|
|
|
+ ;; `org-table-to-lisp', though cells are parsed and
|
|
|
+ ;; transcoded along the way.
|
|
|
(lisp-table
|
|
|
(mapcar
|
|
|
(lambda (line)
|
|
|
(if (string-match org-table-hline-regexp line) 'hline
|
|
|
(mapcar
|
|
|
(lambda (cell)
|
|
|
- (org-export-secondary-string
|
|
|
- (org-element-parse-secondary-string
|
|
|
- cell
|
|
|
- (cdr (assq 'item org-element-string-restrictions)))
|
|
|
- 'e-ascii info))
|
|
|
+ (org-trim
|
|
|
+ (org-export-secondary-string
|
|
|
+ (org-element-parse-secondary-string
|
|
|
+ cell
|
|
|
+ (cdr (assq 'item org-element-string-restrictions)))
|
|
|
+ 'e-ascii info)))
|
|
|
(org-split-string (org-trim line) "\\s-?|\\s-?"))))
|
|
|
(org-split-string clean-table "[ \t]*\n[ \t]*")))
|
|
|
;; Compute real column widths.
|