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))
|
(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\""))
|
" align=\"%s\"" " class=\"%s\""))
|
||||||
(extra (format alignspec align)))
|
(extra (format alignspec align)))
|
||||||
(format "<col%s />" extra))
|
(format "<col%s />" extra))
|
||||||
|
@ -1541,8 +1542,9 @@ lang=\"%s\" xml:lang=\"%s\">
|
||||||
(let ((c (string-to-number (match-string 1))))
|
(let ((c (string-to-number (match-string 1))))
|
||||||
(replace-match
|
(replace-match
|
||||||
(if org-export-xhtml-table-align-individual-fields
|
(if org-export-xhtml-table-align-individual-fields
|
||||||
(format (if org-xhtml-format-table-no-css " align=\"%s\""
|
(format (if (and (boundp 'org-xhtml-format-table-no-css)
|
||||||
" class=\"%s\"")
|
org-xhtml-format-table-no-css)
|
||||||
|
" align=\"%s\"" " class=\"%s\"")
|
||||||
(or (aref org-lparse-table-colalign-vector c) "left")) "")
|
(or (aref org-lparse-table-colalign-vector c) "left")) "")
|
||||||
t t)))
|
t t)))
|
||||||
(goto-char (point-max)))
|
(goto-char (point-max)))
|
||||||
|
|
Loading…
Reference in New Issue