From: "Daniel Clemente" <n142857@gmail.com>
To: emacs-orgmode@gnu.org
Subject: „This should not happen“ (C-c C-e h)
Date: Mon, 19 Nov 2007 22:18:58 +0100 [thread overview]
Message-ID: <ae9590aa0711191318l225da4f8l68a8bbaae3da691d@mail.gmail.com> (raw)
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))
next reply other threads:[~2007-11-19 21:19 UTC|newest]
Thread overview: 4+ messages / expand[flat|nested] mbox.gz Atom feed top
2007-11-19 21:18 Daniel Clemente [this message]
2007-11-20 1:03 ` „This should not happen“ (C-c C-e h) Bastien
2007-11-20 1:47 ` Daniel Clemente
2007-11-22 15:51 ` Carsten Dominik
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.orgmode.org/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=ae9590aa0711191318l225da4f8l68a8bbaae3da691d@mail.gmail.com \
--to=n142857@gmail.com \
--cc=emacs-orgmode@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).