emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
* „This should not happen“ (C-c C-e h)
@ 2007-11-19 21:18 Daniel Clemente
  2007-11-20  1:03 ` Bastien
  0 siblings, 1 reply; 4+ messages in thread
From: Daniel Clemente @ 2007-11-19 21:18 UTC (permalink / raw)
  To: emacs-orgmode

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

^ permalink raw reply	[flat|nested] 4+ messages in thread

* Re: „This should not happen“ (C-c C-e h)
  2007-11-19 21:18 „This should not happen“ (C-c C-e h) Daniel Clemente
@ 2007-11-20  1:03 ` Bastien
  2007-11-20  1:47   ` Daniel Clemente
  0 siblings, 1 reply; 4+ messages in thread
From: Bastien @ 2007-11-20  1:03 UTC (permalink / raw)
  To: emacs-orgmode

"Daniel Clemente" <n142857@gmail.com> writes:

> 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.

Org thinks this is a table.  Maybe table lines should be recognized as
beginning *and* ending with a | 

As a temporary workaround, you can use a fixed-width section like this:

:Item
:|- TextItem
:  |- NameItem
:    |- Relation
:|- BinaryItem
:|- Statement

-- 
Bastien

^ permalink raw reply	[flat|nested] 4+ messages in thread

* Re:  „This should not happen“ (C-c C-e h)
  2007-11-20  1:03 ` Bastien
@ 2007-11-20  1:47   ` Daniel Clemente
  2007-11-22 15:51     ` Carsten Dominik
  0 siblings, 1 reply; 4+ messages in thread
From: Daniel Clemente @ 2007-11-20  1:47 UTC (permalink / raw)
  To: Bastien; +Cc: emacs-orgmode

> > Datenmodell:
> >
> > Item
> > |- TextItem
> >   |- NameItem
> >     |- Relation
> > |- BinaryItem
> > |- Statement
> >
>
> Org thinks this is a table.  Maybe table lines should be recognized as
> beginning *and* ending with a |

   That would be better.
   By the way: on a line which starts with |- you don't normally write
any text if you're doing a table; you just write |---+----+------+|
etc. So in this case no line of the example can be interpreted as
table.

^ permalink raw reply	[flat|nested] 4+ messages in thread

* Re:  „This should not happen“ (C-c C-e h)
  2007-11-20  1:47   ` Daniel Clemente
@ 2007-11-22 15:51     ` Carsten Dominik
  0 siblings, 0 replies; 4+ messages in thread
From: Carsten Dominik @ 2007-11-22 15:51 UTC (permalink / raw)
  To: Daniel Clemente; +Cc: emacs-orgmode

On Nov 20, 2007 2:47 AM, Daniel Clemente <n142857@gmail.com> wrote:
> > > Datenmodell:
> > >
> > > Item
> > > |- TextItem
> > >   |- NameItem
> > >     |- Relation
> > > |- BinaryItem
> > > |- Statement
> > >
> >
> > Org thinks this is a table.  Maybe table lines should be recognized as
> > beginning *and* ending with a |
>
>    That would be better.
>    By the way: on a line which starts with |- you don't normally write
> any text if you're doing a table; you just write |---+----+------+|
> etc. So in this case no line of the example can be interpreted as
> table.

No, any lines starting with "|" are considered to be a table, I don't
want to change this.
In 5.14 you will be able to write


 ~|-~


in order to quote the string.

- Carsten

^ permalink raw reply	[flat|nested] 4+ messages in thread

end of thread, other threads:[~2007-11-22 15:51 UTC | newest]

Thread overview: 4+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2007-11-19 21:18 „This should not happen“ (C-c C-e h) Daniel Clemente
2007-11-20  1:03 ` Bastien
2007-11-20  1:47   ` Daniel Clemente
2007-11-22 15:51     ` Carsten Dominik

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