„This should not happen“ (C-c C-e h)

["Daniel Clemente" <n142857@gmail.com>]

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 "\n<hr/>\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 (and
org-export-with-toc ...) (progn ... ... ... ... ...)) (setq head-count
0) (org-init-section-numbers) (while (setq line ... origline line)
(catch ... ... ... ... ... ... ... ... ... ... ... ... ... ...)) (when
inquote (insert "</pre>\n")) (when in-local-list (while local-list-num
... ... ...) (setq local-list-indent nil in-local-list nil))
(org-html-level-start 1 nil umax (and org-export-with-toc ...)
head-count) (unless body-only (when ... ... ... ... ...) (if
org-export-html-with-timestamp ...) (insert ...) (insert
"</body>\n</html>\n")) (normal-mode) (if (eq major-mode
default-major-mode) (html-mode)) (goto-char (point-min)) (when thetoc
(if ... ... ... ...) (insert "<div id=\"table-of-contents\">\n") (mapc
... thetoc) (insert "</div>\n")) (goto-char (point-min)) (while
(re-search-forward "<p>[
\n	]*</p>" nil t) (replace-match "")) (goto-char (point-min)) (while
(re-search-forward "<li>[
\n	]*</li>\n?" nil t) (replace-match "")) (goto-char (point-min)) (let
(beg end n) (while ... ... ... ... ...)) (or to-buffer (save-buffer))
(goto-char (point-min)) (message "Exporting... done") (if (eq
to-buffer ...) (prog1 ... ...) (current-buffer)))
  (let* ((opt-plist ...) (style ...) (link-validate ...) valid thetoc
have-headings first-heading-pos (odd org-odd-levels-only) (region-p
...) (subtree-p ...) (org-current-export-dir ...)
(org-current-export-file buffer-file-name) (level 0) (line "")
(origline "") txt todo (umax nil) (umax-toc nil) (filename ...)
(current-dir ...) (buffer ...) (org-levels-open ...) (date ...)
(author ...) (title ...) (quote-re0 ...) (quote-re ...) (inquote nil)
(infixed nil) (in-local-list nil) (local-list-num nil)
(local-list-indent nil) (llt org-plain-list-ordered-item-terminator)
(email ...) (language ...) (lang-words nil) (target-alist nil) tg
(head-count 0) cnt (start 0) (coding-system ...)
(coding-system-for-write ...) (save-buffer-coding-system ...) (charset
...) (region ...) (lines ...) table-open type ...) (let (...)
(org-unmodified ...)) (message "Exporting...") (setq org-min-level
(org-get-min-level lines)) (setq org-last-level org-min-level)
(org-init-section-numbers) (cond (... ...) (date) (t ...)) (setq
lang-words (or ... ...)) (set-buffer buffer) (erase-buffer)
(fundamental-mode) (and (fboundp ...) (set-buffer-file-coding-system
coding-system-for-write)) (let (... ...) (mapc ...
org-export-plist-vars) (setq umax ...) (setq umax-toc ...) (unless
body-only ... ... ...) (if ... ...) (setq head-count 0)
(org-init-section-numbers) (while ... ...) (when inquote ...) (when
in-local-list ... ...) (org-html-level-start 1 nil umax ...
head-count) (unless body-only ... ... ... ...) (normal-mode) (if ...
...) (goto-char ...) (when thetoc ... ... ... ...) (goto-char ...)
(while ... ...) (goto-char ...) (while ... ...) (goto-char ...) (let
... ...) (or to-buffer ...) (goto-char ...) (message "Exporting...
done") (if ... ... ...)))
  org-export-as-html(nil nil (:base-directory "~/org/"
:publishing-directory "~/org/html" :section-numbers nil
:table-of-contents nil))