From mboxrd@z Thu Jan 1 00:00:00 1970 From: "Daniel Clemente" Subject: =?UTF-8?B?4oCeVGhpcyBzaG91bGQgbm90IGhhcHBlbuKAnCAoQy1jIEMtZSBo?= =?UTF-8?B?KQ==?= Date: Mon, 19 Nov 2007 22:18:58 +0100 Message-ID: Mime-Version: 1.0 Content-Type: text/plain; charset=WINDOWS-1252 Content-Transfer-Encoding: quoted-printable Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1IuE1I-0003GT-Sm for emacs-orgmode@gnu.org; Mon, 19 Nov 2007 16:19:04 -0500 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1IuE1I-0003G5-2u for emacs-orgmode@gnu.org; Mon, 19 Nov 2007 16:19:04 -0500 Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1IuE1H-0003Fu-Oe for emacs-orgmode@gnu.org; Mon, 19 Nov 2007 16:19:03 -0500 Received: from nf-out-0910.google.com ([64.233.182.184]) by monty-python.gnu.org with esmtp (Exim 4.60) (envelope-from ) id 1IuE1H-00083j-3w for emacs-orgmode@gnu.org; Mon, 19 Nov 2007 16:19:03 -0500 Received: by nf-out-0910.google.com with SMTP id f5so1786613nfh for ; Mon, 19 Nov 2007 13:18:58 -0800 (PST) Content-Disposition: inline List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org Hi, with org-mode 5.13i, I can't export this file to HTML: ** =84This should not happen." Datenmodell: Item |- TextItem |- NameItem |- Relation |- BinaryItem |- Statement The =84|-" 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 "^[ =09]*| */ *|" x) (setq org-table-colgroup-info ...) nil) ((string-match "^[ =09]*| *[!_^/] *|" 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 "^[ =09]*|" (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 "^\\(\\*+\\)[ =09]+\\(.*\\)" 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 "\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 "^[ =09]*-\\{5,\\}[ =09]*$" line) (insert "\n
\n") (throw ... nil)) (while (string-match "<<]*\\)>>>?\\((INVISIBLE)\\)?[ =09]*\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 "\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 "\n\n")) (normal-mode) (if (eq major-mode default-major-mode) (html-mode)) (goto-char (point-min)) (when thetoc (if ... ... ... ...) (insert "
\n") (mapc ... thetoc) (insert "
\n")) (goto-char (point-min)) (while (re-search-forward "

[ \n=09]*

" nil t) (replace-match "")) (goto-char (point-min)) (while (re-search-forward "
  • [ \n=09]*
    • \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))