Hi,
with org-mode 5.13i, I can't export this file to HTML:
** „This should not happen.
Datenmodell:
Item
|- TextItem
|- NameItem
|- Relation
|- BinaryItem
|- Statement
The „|- at the beginning make that C-c C-e h fails. I attach the
backtrace, at the bottom.
Greets,
Daniel
Debugger entered--Lisp error: (error This should not happen)
signal(error (This should not happen))
error(This should not happen)
(cond ((string-match ^[ ]*| */ *| x) (setq
org-table-colgroup-info ...) nil) ((string-match ^[]*| *[!_^/] *|
x) nil) ((or ... ...) (replace-match \\1| t nil x)) (t (error This
should not happen)))
(lambda (x) (cond (... ... nil) (... nil) (... ...) (t ...)))(#(
|- NameItem 0 13 (fontified nil)))
mapcar((lambda (x) (cond (... ... nil) (... nil) (... ...) (t ...)))
(#( |- NameItem 0 13 (fontified nil)) #(|- Relation 0 15
(fontified nil)) #(|- BinaryItem 0 13 (fontified nil
(delq nil (mapcar (lambda ... ...) lines))
(if (memq nil (mapcar ... lines)) (progn (setq
org-table-clean-did-remove-column nil) (delq nil ...)) (setq
org-table-clean-did-remove-column t) (delq nil (mapcar ... lines)))
org-table-clean-before-export((#( |- NameItem 0 13 (fontified
nil)) #(|- Relation 0 15 (fontified nil)) #(|- BinaryItem 0 13
(fontified nil
(setq lines (org-table-clean-before-export lines))
(progn (setq lines (org-table-clean-before-export lines)))
(if org-export-table-remove-special-lines (progn (setq lines ...)))
(when org-export-table-remove-special-lines (setq lines
(org-table-clean-before-export lines)))
org-format-org-table-html((#(|- TextItem 0 11 (fontified nil)) #(
|- NameItem 0 13 (fontified nil)) #(|- Relation 0 15
(fontified nil)) #(|- BinaryItem 0 13 (fontified nil
(if (string-match ^[ ]*| (car lines)) (org-format-org-table-html
lines) (let* (... ... ... ... ...) (if ... ... ...)))
org-format-table-html((#(|- TextItem 0 11 (fontified nil)) #( |-
NameItem 0 13 (fontified nil)) #(|- Relation 0 15 (fontified
nil)) #(|- BinaryItem 0 13 (fontified nil))) (#(|- TextItem 0 11
(fontified nil)) #( |- NameItem 0 13 (fontified nil)) #(|-
Relation 0 15 (fontified nil)) #(|- BinaryItem 0 13 (fontified
nil)) #(|- Statement 0 12 (fontified nil
(insert (org-format-table-html table-buffer table-orig-buffer))
(progn (setq table-open nil table-buffer (nreverse table-buffer)
table-orig-buffer (nreverse table-orig-buffer)) (org-close-par-maybe)
(insert (org-format-table-html table-buffer table-orig-buffer)))
(if (or (not lines) (not ...)) (progn (setq table-open nil
table-buffer ... table-orig-buffer ...) (org-close-par-maybe) (insert
...)))
(when (or (not lines) (not ...)) (setq table-open nil table-buffer
(nreverse table-buffer) table-orig-buffer (nreverse
table-orig-buffer)) (org-close-par-maybe) (insert
(org-format-table-html table-buffer table-orig-buffer)))
(cond ((string-match ^\\(\\*+\\)[]+\\(.*\\) line) (setq level
... txt ...) (if ... ...) (if ... ...) (when in-local-list ... ...)
(setq first-heading-pos ...) (org-html-level-start level txt umax ...
head-count) (when ... ... ...)) ((and org-export-with-tables ...) (if
... ...) (setq table-buffer ... table-orig-buffer ...) (when ... ...
... ...)) (t (when ... ... ... ... ... ... ...) (if ... ...) (when
org-export-with-footnotes ...) (cond ... ...) (insert line \n)))
(catch (quote nextline) (when (and inquote ...) (insert /pre\n)
(setq inquote nil)) (when inquote (insert ... \n) (throw ... nil))
(when (and org-export-with-fixed-width ...) (when ... ... ...) (insert
... \n) (when ... ... ...) (throw ... nil)) (when (get-text-property
0 ... line) (let ... ... ... ... ...) (throw ... nil)) (when
(string-match ^[ ]*-\\{5,\\}[]*$ line) (insert \nhr/\n)
(throw ... nil)) (while (string-match
?\\([^]*\\)?\\((INVISIBLE)\\)?[]*\n? line) (cond ... ...
...)) (setq line (org-html-handle-time-stamps line)) (setq line
(org-html-expand line)) (setq start 0) (while (string-match
org-bracket-link-analytic-regexp line start) (setq start ...) (setq
type ...) (setq path ...) (setq desc1 ... desc2 ... descp ... desc
...) (when ... ... ...) (cond ... ... ... ... ...) (setq line ...
start ...)) (if (and ... ...) (setq line ...)) (when
org-export-with-footnotes (while ... ...)) (cond (... ... ... ... ...
... ... ...) (... ... ... ...) (t ... ... ... ... ...)))
(while (setq line (pop lines) origline line) (catch (quote nextline)
(when ... ... ...) (when inquote ... ...) (when ... ... ... ... ...)
(when ... ... ...) (when ... ... ...) (while ... ...) (setq line ...)
(setq line ...) (setq start 0) (while ... ... ... ... ... ... ... ...)
(if ... ...) (when org-export-with-footnotes ...) (cond ... ... ...)))
(let ((case-fold-search nil) (org-odd-levels-only odd)) (mapc
(lambda ... ...) org-export-plist-vars) (setq umax (if arg ...
org-export-headline-levels)) (setq umax-toc (if ... ... umax)) (unless
body-only (insert ...) (insert ...) (when ... ...)) (if
