From mboxrd@z Thu Jan  1 00:00:00 1970
From: Giovanni Ridolfi <giovanni.ridolfi@yahoo.it>
Subject: Bug?: handling asterisks "*" in HTML export
Date: Tue, 25 Oct 2011 15:21:21 +0200
Message-ID: <83ipndqka6.fsf@yahoo.it>
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: quoted-printable
Return-path: <emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org>
Received: from eggs.gnu.org ([140.186.70.92]:38752)
	by lists.gnu.org with esmtp (Exim 4.71)
	(envelope-from <giovanni.ridolfi@yahoo.it>) id 1RIgwb-0005kg-8d
	for emacs-orgmode@gnu.org; Tue, 25 Oct 2011 09:21:38 -0400
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
	(envelope-from <giovanni.ridolfi@yahoo.it>) id 1RIgwX-00033p-G3
	for emacs-orgmode@gnu.org; Tue, 25 Oct 2011 09:21:29 -0400
Received: from nm22-vm1.bullet.mail.ukl.yahoo.com ([217.12.10.75]:41860)
	by eggs.gnu.org with smtp (Exim 4.71)
	(envelope-from <giovanni.ridolfi@yahoo.it>) id 1RIgwW-00033a-Ml
	for emacs-orgmode@gnu.org; Tue, 25 Oct 2011 09:21:25 -0400
List-Id: "General discussions about Org-mode." <emacs-orgmode.gnu.org>
List-Unsubscribe: <https://lists.gnu.org/mailman/options/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/archive/html/emacs-orgmode>
List-Post: <mailto:emacs-orgmode@gnu.org>
List-Help: <mailto:emacs-orgmode-request@gnu.org?subject=help>
List-Subscribe: <https://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=subscribe>
Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org
Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org
To: emacs-orgmode@gnu.org
Cc: Nicolas Goaziou <n.goaziou@gmail.com>


Remember to cover the basics, that is, what you expected to happen and
what in fact did happen.  You don't know how to make a good report?  See

     http://orgmode.org/manual/Feedback.html#Feedback

Your bug report will be posted to the Org-mode mailing list.
------------------------------------------------------------------------
Emacs  : GNU Emacs 23.3.1 (i386-mingw-nt5.1.2600)
 of 2011-03-10 on 3249CTO
Package: Org-mode version 7.7 2429e834915a11b58c85f18488976e274d6ce387

I found two errors of org while handling asterisks "*" in HTML export.
I don't think this is a bug, but I think it is worth to report.

I wrote my test.org file (see below).=20
Then I tried to html-export a subtree:=20

C-c @  C-c  C-e B

and I got the errors:

(wrong-type-argument stringp nil) or=20
(args-out-of-range [nil nil nil nil nil nil nil nil nil nil nil nil nil nil=
 nil nil nil nil nil nil] -1)

Before trying to reporduce, please, remember to change the tag ":noexport:"
e.g. adding a letter :noexporti: "ne eksporti"  ;-)
so you can export only a section of the file.
The complete debug trace is under the heading "* backtraces".
The culprit sholud be " string-match("^ *QUOTE\\( +\\|[ 	]*$\\)" nil)".

cheers,
Giovanni

-------- test.org ------
     -*- mode: org; -*-
* [2011-10-25 mar] test list asterisk=20
hello
** 1 * without space :noexport:
 *
hello
** test 2 **  without space :noexport:
 **
I found a bug? an error?
** test 3: *  with a space :noexporti:
 *=20
newline

* backtraces

** backtrace 1=20
Debugger entered--Lisp error: (wrong-type-argument stringp nil)
  string-match("^ *QUOTE\\( +\\|[ 	]*$\\)" nil)
  (if (string-match quote-re0 txt) (setq txt (replace-match "" t t txt)))
  (cond ((string-match "\\(\\*+\\)\\(?: +\\(.*?\\)\\)?[ 	]*$" line) (setq l=
evel ... txt ...) (if ... ...) (if ... ...) (setq first-heading-pos ...) (o=
rg-html-level-start level txt umax ... head-count opt-plist) (when ... ... =
... ...)) ((and org-export-with-tables ...) (when ... ...) (setq table-buff=
er ... table-orig-buffer ...) (when ... ... ... ...)) (t (when ... ...) (wh=
en ... ... ...) (if ... ...) (when org-export-with-footnotes ... ...) (cond=
 ... ...) (let ... ...) (insert line "\n")))
  (catch (quote nextline) (when (and inquote ...) (insert "</pre>\n") (org-=
open-par) (setq inquote nil)) (when inquote (insert ... "\n") (throw ... ni=
l)) (when (and org-export-with-fixed-width ...) (when ... ... ... ...) (ins=
ert ... "\n") (when ... ... ... ...) (throw ... nil)) (when (and ... ...) (=
let ... ... ... ... ...) (throw ... nil)) (when (equal "ORG-BLOCKQUOTE-STAR=
T" line) (org-close-par-maybe) (insert "<blockquote>\n") (org-open-par) (th=
row ... nil)) (when (equal "ORG-BLOCKQUOTE-END" line) (org-close-par-maybe)=
 (insert "\n</blockquote>\n") (org-open-par) (throw ... nil)) (when (equal =
"ORG-VERSE-START" line) (org-close-par-maybe) (insert "\n<p class=3D\"verse=
\">\n") (setq org-par-open t) (setq inverse t) (throw ... nil)) (when (equa=
l "ORG-VERSE-END" line) (insert "</p>\n") (setq org-par-open nil) (org-open=
-par) (setq inverse nil) (throw ... nil)) (when (equal "ORG-CENTER-START" l=
ine) (org-close-par-maybe) (insert "\n<div style=3D\"text-align: center\">"=
) (org-open-par) (throw ... nil)) (when (equal "ORG-CENTER-END" line) (org-=
close-par-maybe) (insert "\n</div>") (org-open-par) (throw ... nil)) (run-h=
ooks (quote org-export-html-after-blockquotes-hook)) (when inverse (let ...=
 ... ...)) (setq start 0) (while (string-match "<<<?\\([^<>]*\\)>>>?\\((INV=
ISIBLE)\\)?[ 	]*\n?" line start) (cond ... ... ... ...)) (setq line (org-ht=
ml-handle-time-stamps line)) (or (string-match org-table-hline-regexp line)=
 (string-match "^[ 	]*\\([+]-\\||[ ]\\)[-+ |]*[+|][ 	]*$" line) (setq line =
...)) (setq line (org-html-handle-links line opt-plist)) (if (and org-todo-=
line-regexp ... ...) (setq line ...)) (when org-export-with-footnotes (setq=
 start 0) (while ... ...)) (cond (... ... ... ... ... ... ...) (... ... ...=
 ...) (t ... ... ... ... ... ... ...)))
  (while (setq line (pop lines) origline line) (catch (quote nextline) (whe=
n ... ... ... ...) (when inquote ... ...) (when ... ... ... ... ...) (when =
... ... ...) (when ... ... ... ... ...) (when ... ... ... ... ...) (when ..=
. ... ... ... ... ...) (when ... ... ... ... ... ...) (when ... ... ... ...=
 ...) (when ... ... ... ... ...) (run-hooks ...) (when inverse ...) (setq s=
tart 0) (while ... ...) (setq line ...) (or ... ... ...) (setq line ...) (i=
f ... ...) (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-lev=
els)) (setq umax-toc (if ... ... umax)) (unless body-only (insert ...) (whe=
n ... ...) (insert ... "\n<h1 class=3D\"title\">" title "</h1>\n")) (if (an=
d org-export-with-toc ...) (progn ... ... ... ... ... ... ...)) (setq head-=
count 0) (org-init-section-numbers) (org-open-par) (while (setq line ... or=
igline line) (catch ... ... ... ... ... ... ... ... ... ... ... ... ... ...=
 ... ... ... ... ... ... ...)) (when inquote (insert "</pre>\n") (org-open-=
par)) (org-html-level-start 1 nil umax (and org-export-with-toc ...) head-c=
ount opt-plist) (when (and ... first-heading-pos) (insert "</div>\n")) (sav=
e-excursion (goto-char ...) (while ... ... ... ...)) (when footnotes (inser=
t ... "\n")) (let (...) (when bib ...)) (unless body-only (insert "</div>\n=
") (let ... ...)) (if org-export-html-with-timestamp (insert org-export-htm=
l-html-helper-timestamp)) (unless body-only (insert "\n</body>\n</html>\n")=
) (unless (plist-get opt-plist :buffer-will-be-killed) (normal-mode) (if ..=
. ...)) (goto-char (point-min)) (when thetoc (if ... ... ... ...) (insert "=
<div id=3D\"table-of-contents\">\n") (let ... ... ... ...)) (goto-char (poi=
nt-min)) (while (re-search-forward "<p>[ =0D\n	]*</p>" nil t) (replace-matc=
h "")) (goto-char (point-min)) (goto-char (point-min)) (let (beg end n) (wh=
ile ... ... ... ... ...)) (goto-char (point-min)) (when (looking-at "\\s-+\=
n") (replace-match "")) (remove-text-properties (point-min) (point-max) (qu=
ote ...)) (run-hooks (quote org-export-html-final-hook)) (or to-buffer (sav=
e-buffer)) (goto-char (point-min)) (or (org-export-push-to-kill-ring "HTML"=
) (message "Exporting... done")) (if (eq to-buffer ...) (prog1 ... ...) (cu=
rrent-buffer)))
  (let* ((opt-plist ...) (body-only ...) (style ...) (html-extension ...) v=
alid thetoc have-headings first-heading-pos (odd org-odd-levels-only) (regi=
on-p ...) (rbeg ...) (rend ...) (subtree-p ...) (level-offset ...) (opt-pli=
st ...) (org-current-export-dir ...) (org-current-export-file buffer-file-n=
ame) (level 0) (line "") (origline "") txt todo (umax nil) (umax-toc nil) (=
filename ...) (current-dir ...) (buffer ...) (org-levels-open ...) (date ..=
.) (author ...) (html-validation-link ...) (title ...) (link-up ...) (link-=
home ...) (dummy ...) (html-table-tag ...) (quote-re0 ...) (quote-re ...) (=
inquote nil) (infixed nil) (inverse nil) (email ...) (language ...) (keywor=
ds ...) (description ...) (num ...) (lang-words nil) (head-count 0) cnt (st=
art 0) ...) (let (...) (org-unmodified ...)) (message "Exporting...") (setq=
 org-min-level (org-get-min-level lines level-offset)) (setq org-last-level=
 org-min-level) (org-init-section-numbers) (cond (... ...) (date) (t ...)) =
(setq lang-words (or ... ...)) (set-buffer buffer) (let (...) (erase-buffer=
)) (fundamental-mode) (org-install-letbind) (and (fboundp ...) (set-buffer-=
file-coding-system coding-system-for-write)) (let (... ...) (mapc ... org-e=
xport-plist-vars) (setq umax ...) (setq umax-toc ...) (unless body-only ...=
 ... ...) (if ... ...) (setq head-count 0) (org-init-section-numbers) (org-=
open-par) (while ... ...) (when inquote ... ...) (org-html-level-start 1 ni=
l umax ... head-count opt-plist) (when ... ...) (save-excursion ... ...) (w=
hen footnotes ...) (let ... ...) (unless body-only ... ...) (if org-export-=
html-with-timestamp ...) (unless body-only ...) (unless ... ... ...) (goto-=
char ...) (when thetoc ... ... ...) (goto-char ...) (while ... ...) (goto-c=
har ...) (goto-char ...) (let ... ...) (goto-char ...) (when ... ...) (remo=
ve-text-properties ... ... ...) (run-hooks ...) (or to-buffer ...) (goto-ch=
ar ...) (or ... ...) (if ... ... ...)))
  org-export-as-html(nil hidden)
  org-export-as-html-and-open(nil)
  call-interactively(org-export-as-html-and-open)
  (if (and bg (nth 2 ass) (not ...) (not ...)) (let (...) (set-process-sent=
inel p ...) (message "Background process \"%s\": started" p)) (if subtree-p=
 (progn ... ...)) (call-interactively (nth 1 ass)) (when (and bpos ...) (le=
t ... ... ... ... ...)))
  (let* ((bg ...) (subtree-p ...) (help "[t]   insert the export option tem=
plate\n[v]   limit export to visible part of outline tree\n[1]   switch buf=
fer/subtree export\n[SPC] publish enclosing subtree (with LaTeX_CLASS or EX=
PORT_FILE_NAME prop)\n\n[a/n/u] export as ASCII/Latin-1/UTF-8         [A/N/=
U] to temporary buffer\n\n[h] export as HTML      [H] to temporary buffer  =
 [R] export region\n[b] export as HTML and open in browser\n\n[l] export as=
 LaTeX     [L] to temporary buffer\n[p] export as LaTeX and process to PDF =
           [d] ... and open PDF file\n\n[D] export as DocBook   [V] export =
as DocBook, process to PDF, and open\n\n[o] export as OpenDocumentText     =
               [O] ... and open\n\n[j] export as TaskJuggler               =
          [J] ... and open\n\n[m] export as Freemind mind map\n[x] export a=
s XOXO\n[g] export using Wes Hardaker's generic exporter\n\n[i] export curr=
ent file as iCalendar file\n[I] export all agenda files as iCalendar files =
  [c] ...as one combined file\n\n[F] publish current file          [P] publ=
ish current project\n[X] publish a project...          [E] publish every pr=
ojects") (cmds ...) r1 r2 ass (cpos ...) (cbuf ...) bpos) (save-excursion (=
save-window-excursion ... ... ... ... ... ...)) (if (fboundp ...) (redispla=
y)) (and bpos (goto-char bpos)) (setq r2 (if ... ... r1)) (unless (setq ass=
 ...) (error "No command associated with key %c" r1)) (if (and bg ... ... .=
..) (let ... ... ...) (if subtree-p ...) (call-interactively ...) (when ...=
 ...)))
  org-export(nil)
  call-interactively(org-export nil nil)

** backtrace 2
Debugger entered--Lisp error: (wrong-type-argument stringp nil)
  string-match("^ *QUOTE\\( +\\|[ 	]*$\\)" nil)
  (if (string-match quote-re0 txt) (setq txt (replace-match "" t t txt)))
  (cond ((string-match "\\(\\*+\\)\\(?: +\\(.*?\\)\\)?[ 	]*$" line) (setq l=
evel ... txt ...) (if ... ...) (if ... ...) (setq first-heading-pos ...) (o=
rg-html-level-start level txt umax ... head-count opt-plist) (when ... ... =
... ...)) ((and org-export-with-tables ...) (when ... ...) (setq table-buff=
er ... table-orig-buffer ...) (when ... ... ... ...)) (t (when ... ...) (wh=
en ... ... ...) (if ... ...) (when org-export-with-footnotes ... ...) (cond=
 ... ...) (let ... ...) (insert line "\n")))
  (catch (quote nextline) (when (and inquote ...) (insert "</pre>\n") (org-=
open-par) (setq inquote nil)) (when inquote (insert ... "\n") (throw ... ni=
l)) (when (and org-export-with-fixed-width ...) (when ... ... ... ...) (ins=
ert ... "\n") (when ... ... ... ...) (throw ... nil)) (when (and ... ...) (=
let ... ... ... ... ...) (throw ... nil)) (when (equal "ORG-BLOCKQUOTE-STAR=
T" line) (org-close-par-maybe) (insert "<blockquote>\n") (org-open-par) (th=
row ... nil)) (when (equal "ORG-BLOCKQUOTE-END" line) (org-close-par-maybe)=
 (insert "\n</blockquote>\n") (org-open-par) (throw ... nil)) (when (equal =
"ORG-VERSE-START" line) (org-close-par-maybe) (insert "\n<p class=3D\"verse=
\">\n") (setq org-par-open t) (setq inverse t) (throw ... nil)) (when (equa=
l "ORG-VERSE-END" line) (insert "</p>\n") (setq org-par-open nil) (org-open=
-par) (setq inverse nil) (throw ... nil)) (when (equal "ORG-CENTER-START" l=
ine) (org-close-par-maybe) (insert "\n<div style=3D\"text-align: center\">"=
) (org-open-par) (throw ... nil)) (when (equal "ORG-CENTER-END" line) (org-=
close-par-maybe) (insert "\n</div>") (org-open-par) (throw ... nil)) (run-h=
ooks (quote org-export-html-after-blockquotes-hook)) (when inverse (let ...=
 ... ...)) (setq start 0) (while (string-match "<<<?\\([^<>]*\\)>>>?\\((INV=
ISIBLE)\\)?[ 	]*\n?" line start) (cond ... ... ... ...)) (setq line (org-ht=
ml-handle-time-stamps line)) (or (string-match org-table-hline-regexp line)=
 (string-match "^[ 	]*\\([+]-\\||[ ]\\)[-+ |]*[+|][ 	]*$" line) (setq line =
...)) (setq line (org-html-handle-links line opt-plist)) (if (and org-todo-=
line-regexp ... ...) (setq line ...)) (when org-export-with-footnotes (setq=
 start 0) (while ... ...)) (cond (... ... ... ... ... ... ...) (... ... ...=
 ...) (t ... ... ... ... ... ... ...)))
  (while (setq line (pop lines) origline line) (catch (quote nextline) (whe=
n ... ... ... ...) (when inquote ... ...) (when ... ... ... ... ...) (when =
... ... ...) (when ... ... ... ... ...) (when ... ... ... ... ...) (when ..=
. ... ... ... ... ...) (when ... ... ... ... ... ...) (when ... ... ... ...=
 ...) (when ... ... ... ... ...) (run-hooks ...) (when inverse ...) (setq s=
tart 0) (while ... ...) (setq line ...) (or ... ... ...) (setq line ...) (i=
f ... ...) (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-lev=
els)) (setq umax-toc (if ... ... umax)) (unless body-only (insert ...) (whe=
n ... ...) (insert ... "\n<h1 class=3D\"title\">" title "</h1>\n")) (if (an=
d org-export-with-toc ...) (progn ... ... ... ... ... ... ...)) (setq head-=
count 0) (org-init-section-numbers) (org-open-par) (while (setq line ... or=
igline line) (catch ... ... ... ... ... ... ... ... ... ... ... ... ... ...=
 ... ... ... ... ... ... ...)) (when inquote (insert "</pre>\n") (org-open-=
par)) (org-html-level-start 1 nil umax (and org-export-with-toc ...) head-c=
ount opt-plist) (when (and ... first-heading-pos) (insert "</div>\n")) (sav=
e-excursion (goto-char ...) (while ... ... ... ...)) (when footnotes (inser=
t ... "\n")) (let (...) (when bib ...)) (unless body-only (insert "</div>\n=
") (let ... ...)) (if org-export-html-with-timestamp (insert org-export-htm=
l-html-helper-timestamp)) (unless body-only (insert "\n</body>\n</html>\n")=
) (unless (plist-get opt-plist :buffer-will-be-killed) (normal-mode) (if ..=
. ...)) (goto-char (point-min)) (when thetoc (if ... ... ... ...) (insert "=
<div id=3D\"table-of-contents\">\n") (let ... ... ... ...)) (goto-char (poi=
nt-min)) (while (re-search-forward "<p>[ =0D\n	]*</p>" nil t) (replace-matc=
h "")) (goto-char (point-min)) (goto-char (point-min)) (let (beg end n) (wh=
ile ... ... ... ... ...)) (goto-char (point-min)) (when (looking-at "\\s-+\=
n") (replace-match "")) (remove-text-properties (point-min) (point-max) (qu=
ote ...)) (run-hooks (quote org-export-html-final-hook)) (or to-buffer (sav=
e-buffer)) (goto-char (point-min)) (or (org-export-push-to-kill-ring "HTML"=
) (message "Exporting... done")) (if (eq to-buffer ...) (prog1 ... ...) (cu=
rrent-buffer)))
  (let* ((opt-plist ...) (body-only ...) (style ...) (html-extension ...) v=
alid thetoc have-headings first-heading-pos (odd org-odd-levels-only) (regi=
on-p ...) (rbeg ...) (rend ...) (subtree-p ...) (level-offset ...) (opt-pli=
st ...) (org-current-export-dir ...) (org-current-export-file buffer-file-n=
ame) (level 0) (line "") (origline "") txt todo (umax nil) (umax-toc nil) (=
filename ...) (current-dir ...) (buffer ...) (org-levels-open ...) (date ..=
.) (author ...) (html-validation-link ...) (title ...) (link-up ...) (link-=
home ...) (dummy ...) (html-table-tag ...) (quote-re0 ...) (quote-re ...) (=
inquote nil) (infixed nil) (inverse nil) (email ...) (language ...) (keywor=
ds ...) (description ...) (num ...) (lang-words nil) (head-count 0) cnt (st=
art 0) ...) (let (...) (org-unmodified ...)) (message "Exporting...") (setq=
 org-min-level (org-get-min-level lines level-offset)) (setq org-last-level=
 org-min-level) (org-init-section-numbers) (cond (... ...) (date) (t ...)) =
(setq lang-words (or ... ...)) (set-buffer buffer) (let (...) (erase-buffer=
)) (fundamental-mode) (org-install-letbind) (and (fboundp ...) (set-buffer-=
file-coding-system coding-system-for-write)) (let (... ...) (mapc ... org-e=
xport-plist-vars) (setq umax ...) (setq umax-toc ...) (unless body-only ...=
 ... ...) (if ... ...) (setq head-count 0) (org-init-section-numbers) (org-=
open-par) (while ... ...) (when inquote ... ...) (org-html-level-start 1 ni=
l umax ... head-count opt-plist) (when ... ...) (save-excursion ... ...) (w=
hen footnotes ...) (let ... ...) (unless body-only ... ...) (if org-export-=
html-with-timestamp ...) (unless body-only ...) (unless ... ... ...) (goto-=
char ...) (when thetoc ... ... ...) (goto-char ...) (while ... ...) (goto-c=
har ...) (goto-char ...) (let ... ...) (goto-char ...) (when ... ...) (remo=
ve-text-properties ... ... ...) (run-hooks ...) (or to-buffer ...) (goto-ch=
ar ...) (or ... ...) (if ... ... ...)))
  org-export-as-html(nil hidden)
  org-export-as-html-and-open(nil)
  call-interactively(org-export-as-html-and-open)
  (if (and bg (nth 2 ass) (not ...) (not ...)) (let (...) (set-process-sent=
inel p ...) (message "Background process \"%s\": started" p)) (if subtree-p=
 (progn ... ...)) (call-interactively (nth 1 ass)) (when (and bpos ...) (le=
t ... ... ... ... ...)))
  (let* ((bg ...) (subtree-p ...) (help "[t]   insert the export option tem=
plate\n[v]   limit export to visible part of outline tree\n[1]   switch buf=
fer/subtree export\n[SPC] publish enclosing subtree (with LaTeX_CLASS or EX=
PORT_FILE_NAME prop)\n\n[a/n/u] export as ASCII/Latin-1/UTF-8         [A/N/=
U] to temporary buffer\n\n[h] export as HTML      [H] to temporary buffer  =
 [R] export region\n[b] export as HTML and open in browser\n\n[l] export as=
 LaTeX     [L] to temporary buffer\n[p] export as LaTeX and process to PDF =
           [d] ... and open PDF file\n\n[D] export as DocBook   [V] export =
as DocBook, process to PDF, and open\n\n[o] export as OpenDocumentText     =
               [O] ... and open\n\n[j] export as TaskJuggler               =
          [J] ... and open\n\n[m] export as Freemind mind map\n[x] export a=
s XOXO\n[g] export using Wes Hardaker's generic exporter\n\n[i] export curr=
ent file as iCalendar file\n[I] export all agenda files as iCalendar files =
  [c] ...as one combined file\n\n[F] publish current file          [P] publ=
ish current project\n[X] publish a project...          [E] publish every pr=
ojects") (cmds ...) r1 r2 ass (cpos ...) (cbuf ...) bpos) (save-excursion (=
save-window-excursion ... ... ... ... ... ...)) (if (fboundp ...) (redispla=
y)) (and bpos (goto-char bpos)) (setq r2 (if ... ... r1)) (unless (setq ass=
 ...) (error "No command associated with key %c" r1)) (if (and bg ... ... .=
..) (let ... ... ...) (if subtree-p ...) (call-interactively ...) (when ...=
 ...)))
  org-export(nil)
  call-interactively(org-export nil nil)


** backtrace 3=20
Debugger entered--Lisp error: (args-out-of-range [nil nil nil nil nil nil n=
il nil nil nil nil nil nil nil nil nil nil nil nil nil] -1)
  aref([nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil=
 nil nil nil] -1)
  (if (aref org-levels-open (1- l)) (progn (org-html-level-close l umax) (a=
set org-levels-open ... nil)))
  (while (>=3D l level) (if (aref org-levels-open ...) (progn ... ...)) (se=
tq l (1- l)))
  (let* ((target ...) (extra-targets ...) (extra-class ...) (preferred ...)=
 (l org-level-max) (num ...) snumber snu href suffix) (setq extra-targets (=
remove ... extra-targets)) (setq extra-targets (mapconcat ... extra-targets=
 "")) (while (>=3D l level) (if ... ...) (setq l ...)) (when title (when ..=
. ...) (if ... ... ... ... ... ... ... ... ... ... ... ...)))
  org-html-level-start(0 "" 3 t 2 (:latex-image-options nil :exclude-tags (=
"noexport") :select-tags ("export") :publishing-directory nil :timestamp ni=
l :expand-quoted-html t :html-table-tag "<table border=3D\"2\" cellspacing=
=3D\"0\" cellpadding=3D\"6\" rules=3D\"groups\" frame=3D\"hsides\">" :xml-d=
eclaration (("html" . "<?xml version=3D\"1.0\" encoding=3D\"%s\"?>") ("php"=
 . "<?php echo \"<?xml version=3D\\\"1.0\\\" encoding=3D\\\"%s\\\" ?>\"; ?>=
")) :html-postamble auto :html-preamble t :html-extension "html" :inline-im=
ages maybe :convert-org-links t :agenda-style "" :style-extra "" :style "" =
:style-include-scripts t :style-include-default t :table-auto-headline t :t=
ables t :time-stamp-file t :creator-info t :email-info nil :author-info t :=
email "giovanni.ridolfi@yahoo.it" ...))
  (cond ((string-match "\\(\\*+\\)\\(?: +\\(.*?\\)\\)?[ 	]*$" line) (setq l=
evel ... txt ...) (if ... ...) (if ... ...) (setq first-heading-pos ...) (o=
rg-html-level-start level txt umax ... head-count opt-plist) (when ... ... =
... ...)) ((and org-export-with-tables ...) (when ... ...) (setq table-buff=
er ... table-orig-buffer ...) (when ... ... ... ...)) (t (when ... ...) (wh=
en ... ... ...) (if ... ...) (when org-export-with-footnotes ... ...) (cond=
 ... ...) (let ... ...) (insert line "\n")))
  (catch (quote nextline) (when (and inquote ...) (insert "</pre>\n") (org-=
open-par) (setq inquote nil)) (when inquote (insert ... "\n") (throw ... ni=
l)) (when (and org-export-with-fixed-width ...) (when ... ... ... ...) (ins=
ert ... "\n") (when ... ... ... ...) (throw ... nil)) (when (and ... ...) (=
let ... ... ... ... ...) (throw ... nil)) (when (equal "ORG-BLOCKQUOTE-STAR=
T" line) (org-close-par-maybe) (insert "<blockquote>\n") (org-open-par) (th=
row ... nil)) (when (equal "ORG-BLOCKQUOTE-END" line) (org-close-par-maybe)=
 (insert "\n</blockquote>\n") (org-open-par) (throw ... nil)) (when (equal =
"ORG-VERSE-START" line) (org-close-par-maybe) (insert "\n<p class=3D\"verse=
\">\n") (setq org-par-open t) (setq inverse t) (throw ... nil)) (when (equa=
l "ORG-VERSE-END" line) (insert "</p>\n") (setq org-par-open nil) (org-open=
-par) (setq inverse nil) (throw ... nil)) (when (equal "ORG-CENTER-START" l=
ine) (org-close-par-maybe) (insert "\n<div style=3D\"text-align: center\">"=
) (org-open-par) (throw ... nil)) (when (equal "ORG-CENTER-END" line) (org-=
close-par-maybe) (insert "\n</div>") (org-open-par) (throw ... nil)) (run-h=
ooks (quote org-export-html-after-blockquotes-hook)) (when inverse (let ...=
 ... ...)) (setq start 0) (while (string-match "<<<?\\([^<>]*\\)>>>?\\((INV=
ISIBLE)\\)?[ 	]*\n?" line start) (cond ... ... ... ...)) (setq line (org-ht=
ml-handle-time-stamps line)) (or (string-match org-table-hline-regexp line)=
 (string-match "^[ 	]*\\([+]-\\||[ ]\\)[-+ |]*[+|][ 	]*$" line) (setq line =
...)) (setq line (org-html-handle-links line opt-plist)) (if (and org-todo-=
line-regexp ... ...) (setq line ...)) (when org-export-with-footnotes (setq=
 start 0) (while ... ...)) (cond (... ... ... ... ... ... ...) (... ... ...=
 ...) (t ... ... ... ... ... ... ...)))
  (while (setq line (pop lines) origline line) (catch (quote nextline) (whe=
n ... ... ... ...) (when inquote ... ...) (when ... ... ... ... ...) (when =
... ... ...) (when ... ... ... ... ...) (when ... ... ... ... ...) (when ..=
. ... ... ... ... ...) (when ... ... ... ... ... ...) (when ... ... ... ...=
 ...) (when ... ... ... ... ...) (run-hooks ...) (when inverse ...) (setq s=
tart 0) (while ... ...) (setq line ...) (or ... ... ...) (setq line ...) (i=
f ... ...) (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-lev=
els)) (setq umax-toc (if ... ... umax)) (unless body-only (insert ...) (whe=
n ... ...) (insert ... "\n<h1 class=3D\"title\">" title "</h1>\n")) (if (an=
d org-export-with-toc ...) (progn ... ... ... ... ... ... ...)) (setq head-=
count 0) (org-init-section-numbers) (org-open-par) (while (setq line ... or=
igline line) (catch ... ... ... ... ... ... ... ... ... ... ... ... ... ...=
 ... ... ... ... ... ... ...)) (when inquote (insert "</pre>\n") (org-open-=
par)) (org-html-level-start 1 nil umax (and org-export-with-toc ...) head-c=
ount opt-plist) (when (and ... first-heading-pos) (insert "</div>\n")) (sav=
e-excursion (goto-char ...) (while ... ... ... ...)) (when footnotes (inser=
t ... "\n")) (let (...) (when bib ...)) (unless body-only (insert "</div>\n=
") (let ... ...)) (if org-export-html-with-timestamp (insert org-export-htm=
l-html-helper-timestamp)) (unless body-only (insert "\n</body>\n</html>\n")=
) (unless (plist-get opt-plist :buffer-will-be-killed) (normal-mode) (if ..=
. ...)) (goto-char (point-min)) (when thetoc (if ... ... ... ...) (insert "=
<div id=3D\"table-of-contents\">\n") (let ... ... ... ...)) (goto-char (poi=
nt-min)) (while (re-search-forward "<p>[ =0D\n	]*</p>" nil t) (replace-matc=
h "")) (goto-char (point-min)) (goto-char (point-min)) (let (beg end n) (wh=
ile ... ... ... ... ...)) (goto-char (point-min)) (when (looking-at "\\s-+\=
n") (replace-match "")) (remove-text-properties (point-min) (point-max) (qu=
ote ...)) (run-hooks (quote org-export-html-final-hook)) (or to-buffer (sav=
e-buffer)) (goto-char (point-min)) (or (org-export-push-to-kill-ring "HTML"=
) (message "Exporting... done")) (if (eq to-buffer ...) (prog1 ... ...) (cu=
rrent-buffer)))
  (let* ((opt-plist ...) (body-only ...) (style ...) (html-extension ...) v=
alid thetoc have-headings first-heading-pos (odd org-odd-levels-only) (regi=
on-p ...) (rbeg ...) (rend ...) (subtree-p ...) (level-offset ...) (opt-pli=
st ...) (org-current-export-dir ...) (org-current-export-file buffer-file-n=
ame) (level 0) (line "") (origline "") txt todo (umax nil) (umax-toc nil) (=
filename ...) (current-dir ...) (buffer ...) (org-levels-open ...) (date ..=
.) (author ...) (html-validation-link ...) (title ...) (link-up ...) (link-=
home ...) (dummy ...) (html-table-tag ...) (quote-re0 ...) (quote-re ...) (=
inquote nil) (infixed nil) (inverse nil) (email ...) (language ...) (keywor=
ds ...) (description ...) (num ...) (lang-words nil) (head-count 0) cnt (st=
art 0) ...) (let (...) (org-unmodified ...)) (message "Exporting...") (setq=
 org-min-level (org-get-min-level lines level-offset)) (setq org-last-level=
 org-min-level) (org-init-section-numbers) (cond (... ...) (date) (t ...)) =
(setq lang-words (or ... ...)) (set-buffer buffer) (let (...) (erase-buffer=
)) (fundamental-mode) (org-install-letbind) (and (fboundp ...) (set-buffer-=
file-coding-system coding-system-for-write)) (let (... ...) (mapc ... org-e=
xport-plist-vars) (setq umax ...) (setq umax-toc ...) (unless body-only ...=
 ... ...) (if ... ...) (setq head-count 0) (org-init-section-numbers) (org-=
open-par) (while ... ...) (when inquote ... ...) (org-html-level-start 1 ni=
l umax ... head-count opt-plist) (when ... ...) (save-excursion ... ...) (w=
hen footnotes ...) (let ... ...) (unless body-only ... ...) (if org-export-=
html-with-timestamp ...) (unless body-only ...) (unless ... ... ...) (goto-=
char ...) (when thetoc ... ... ...) (goto-char ...) (while ... ...) (goto-c=
har ...) (goto-char ...) (let ... ...) (goto-char ...) (when ... ...) (remo=
ve-text-properties ... ... ...) (run-hooks ...) (or to-buffer ...) (goto-ch=
ar ...) (or ... ...) (if ... ... ...)))
  org-export-as-html(nil hidden)
  org-export-as-html-and-open(nil)
  call-interactively(org-export-as-html-and-open)
  (if (and bg (nth 2 ass) (not ...) (not ...)) (let (...) (set-process-sent=
inel p ...) (message "Background process \"%s\": started" p)) (if subtree-p=
 (progn ... ...)) (call-interactively (nth 1 ass)) (when (and bpos ...) (le=
t ... ... ... ... ...)))
  (let* ((bg ...) (subtree-p ...) (help "[t]   insert the export option tem=
plate\n[v]   limit export to visible part of outline tree\n[1]   switch buf=
fer/subtree export\n[SPC] publish enclosing subtree (with LaTeX_CLASS or EX=
PORT_FILE_NAME prop)\n\n[a/n/u] export as ASCII/Latin-1/UTF-8         [A/N/=
U] to temporary buffer\n\n[h] export as HTML      [H] to temporary buffer  =
 [R] export region\n[b] export as HTML and open in browser\n\n[l] export as=
 LaTeX     [L] to temporary buffer\n[p] export as LaTeX and process to PDF =
           [d] ... and open PDF file\n\n[D] export as DocBook   [V] export =
as DocBook, process to PDF, and open\n\n[o] export as OpenDocumentText     =
               [O] ... and open\n\n[j] export as TaskJuggler               =
          [J] ... and open\n\n[m] export as Freemind mind map\n[x] export a=
s XOXO\n[g] export using Wes Hardaker's generic exporter\n\n[i] export curr=
ent file as iCalendar file\n[I] export all agenda files as iCalendar files =
  [c] ...as one combined file\n\n[F] publish current file          [P] publ=
ish current project\n[X] publish a project...          [E] publish every pr=
ojects") (cmds ...) r1 r2 ass (cpos ...) (cbuf ...) bpos) (save-excursion (=
save-window-excursion ... ... ... ... ... ...)) (if (fboundp ...) (redispla=
y)) (and bpos (goto-char bpos)) (setq r2 (if ... ... r1)) (unless (setq ass=
 ...) (error "No command associated with key %c" r1)) (if (and bg ... ... .=
..) (let ... ... ...) (if subtree-p ...) (call-interactively ...) (when ...=
 ...)))
  org-export(nil)
  call-interactively(org-export nil nil)

current state:
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
(setq
 org-log-done t
 org-export-latex-after-initial-vars-hook '(org-beamer-after-initial-vars)
 org-speed-command-hook '(org-speed-command-default-hook org-babel-speed-co=
mmand-hook)

 org-blocker-hook '(org-block-todo-from-children-or-siblings-or-parent)
 org-babel-load-languages '((gnuplot . t) (emacs-lisp . t) (calc . t) (sh .=
 t) (ditaa . t))
 org-metaup-hook '(org-babel-load-in-session-maybe)
 org-after-todo-state-change-hook '(org-clock-out-if-current)
 org-export-blocks-postblock-hook '(org-exp-res/src-name-cleanup)
 org-export-latex-format-toc-function 'org-export-latex-format-toc-default
 org-tab-first-hook '(org-hide-block-toggle-maybe org-src-native-tab-comman=
d-maybe
		      org-babel-hide-result-toggle-maybe)
 org-src-mode-hook '(org-src-babel-configure-edit-buffer org-src-mode-confi=
gure-edit-buffer)
 org-finalize-agenda-hook '(my-org-agenda-to-appt)
 org-confirm-shell-link-function 'yes-or-no-p
 org-export-first-hook '(org-beamer-initialize-open-trackers)
 org-agenda-before-write-hook '(org-agenda-add-entry-text)
 org-blank-before-new-entry nil
 org-babel-pre-tangle-hook '(save-buffer)
 org-cycle-hook '(org-cycle-hide-archived-subtrees org-cycle-hide-drawers o=
rg-cycle-show-empty-lines
		  org-optimize-window-after-visibility-change)
 org-export-preprocess-before-normalizing-links-hook '(org-remove-file-link=
-modifiers)
 org-mode-hook '((lambda nil
		  (org-add-hook (quote change-major-mode-hook) (quote org-show-block-all)=
 (quote append)
		   (quote local))
		  )
		 (lambda nil
		  (org-add-hook (quote change-major-mode-hook) (quote org-babel-show-resu=
lt-all)
		   (quote append) (quote local))
		  )
		 org-babel-result-hide-spec org-babel-hide-all-hashes)
 org-ctrl-c-ctrl-c-hook '(org-babel-hash-at-point org-babel-execute-safely-=
maybe)
 org-confirm-elisp-link-function 'yes-or-no-p
 org-export-interblocks '((lob org-babel-exp-lob-one-liners) (src org-babel=
-exp-inline-src-blocks))
 org-clock-out-hook '(org-clock-remove-empty-clock-drawer)
 org-enforce-todo-dependencies t
 org-occur-hook '(org-first-headline-recenter)
 org-from-is-user-regexp nil
 org-export-preprocess-before-selecting-backend-code-hook '(org-beamer-sele=
ct-beamer-code)
 org-export-latex-final-hook '(org-beamer-amend-header org-beamer-fix-toc o=
rg-beamer-auto-fragile-frames
			       org-beamer-place-default-actions-for-lists)
 org-metadown-hook '(org-babel-pop-to-session-maybe)
 org-export-blocks '((src org-babel-exp-src-block nil) (comment org-export-=
blocks-format-comment t)
		     (ditaa org-export-blocks-format-ditaa nil) (dot org-export-blocks-fo=
rmat-dot nil))
 )