org-xhtml.el: Fix a crash during export of list-tables
* contrib/lisp/org-xhtml.el (org-xhtml-end-table): During export of list-tables, `org-xhtml-format-table-no-css' is not bound. In such cases pretend that it's value is nil.
This commit is contained in:
parent
74e78a1456
commit
c51b7cfd40
|
@ -1524,7 +1524,8 @@ lang=\"%s\" xml:lang=\"%s\">
|
|||
"")
|
||||
|
||||
(let* ((align (aref org-lparse-table-colalign-vector c))
|
||||
(alignspec (if org-xhtml-format-table-no-css
|
||||
(alignspec (if (and (boundp 'org-xhtml-format-table-no-css)
|
||||
org-xhtml-format-table-no-css)
|
||||
" align=\"%s\"" " class=\"%s\""))
|
||||
(extra (format alignspec align)))
|
||||
(format "<col%s />" extra))
|
||||
|
@ -1541,8 +1542,9 @@ lang=\"%s\" xml:lang=\"%s\">
|
|||
(let ((c (string-to-number (match-string 1))))
|
||||
(replace-match
|
||||
(if org-export-xhtml-table-align-individual-fields
|
||||
(format (if org-xhtml-format-table-no-css " align=\"%s\""
|
||||
" class=\"%s\"")
|
||||
(format (if (and (boundp 'org-xhtml-format-table-no-css)
|
||||
org-xhtml-format-table-no-css)
|
||||
" align=\"%s\"" " class=\"%s\"")
|
||||
(or (aref org-lparse-table-colalign-vector c) "left")) "")
|
||||
t t)))
|
||||
(goto-char (point-max)))
|
||||
|
|
Loading…
Reference in New Issue