mirrors
/
org-mode
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git
0
0
Fork 1
Code Releases Activity

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:
Jambunathan K 2011-09-02 00:18:43 +05:30
parent 74e78a1456
commit c51b7cfd40
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
contrib/lisp/org-xhtml.el
View File

@ -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)))