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.
------------------------------------------------------------------------
I created the following simple org file, with a code block in it:
==== BEGIN ====
This is a test.
#+BEGIN_SRC latex :exports none
\newcommand{\test}{Test}
#+END_SRC
==== END ====
Then exported it to LaTeX and had an error (backtrace attached). The
error always happened regardless of the value of :exports.
Emacs : GNU Emacs 23.3.50.1 (i386-apple-darwin9.8.0, NS
apple-appkit-949.54)
of 2011-07-29 on braeburn.aquamacs.org - Aquamacs Distribution 2.3a
Package: Org-mode version 7.7
current state:
==============
(setq
org-export-latex-after-initial-vars-hook '(org-beamer-after-initial-vars)
org-speed-command-hook '(org-speed-command-default-hook
org-babel-speed-command-hook)
org-blocker-hook '(org-block-todo-from-children-or-siblings-or-parent)
org-babel-load-languages '((R) (ditaa . t) (dot . t) (emacs-lisp . t)
(gnuplot . t) (haskell) (latex . t) (matlab . t)
(ocaml) (python . t) (ruby) (screen) (sh . t) (sql)
(sqlite))
org-completion-use-ido t
org-metaup-hook '(org-babel-load-in-session-maybe)
org-babel-tangle-lang-exts '(("python" . "py") ("latex" . "tex")
("emacs-lisp" . "el"))
org-export-blocks-postblock-hook '(org-exp-res/src-name-cleanup)
org-export-latex-format-toc-function 'org-export-latex-format-toc-default
org-support-shift-select t
org-export-preprocess-hook '((lambda nil
(org-set-local (quote org-complex-heading-regexp)
"^\\(\\*+\\)[
]+\\(?:\\(TODO\\|NEXT\\|STARTED\\|DONE\\|WAITING\\|CANCELLED\\|DEFERRED\\|PROJECT\\|FINISHED\\)\\>\\)?\\(?:[
]*\\(\\[#.\\]\\)\\)?[ ]*\\(.*?\\)\\(?:[
]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ ]*$")
)
)
org-tab-first-hook '(org-hide-block-toggle-maybe
org-src-native-tab-command-maybe
org-babel-hide-result-toggle-maybe)
org-src-mode-hook '(org-src-babel-configure-edit-buffer
org-src-mode-configure-edit-buffer)
org-confirm-shell-link-function 'yes-or-no-p
org-export-first-hook '(org-beamer-initialize-open-trackers)
org-babel-pre-tangle-hook '(save-buffer)
org-cycle-hook '(org-cycle-hide-archived-subtrees org-cycle-hide-drawers
org-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-babel-show-result-all) (quote append) (quote local))
)
(lambda nil
(org-add-hook (quote change-major-mode-hook)
(quote org-show-block-all) (quote append) (quote local))
)
#[nil "\300\301\302\303\304$\207"
[org-add-hook change-major-mode-hook org-show-block-all append
local]
5]
#[nil "\300\301\302\303\304$\207"
[org-add-hook change-major-mode-hook org-babel-show-result-all
append local]
5]
org-babel-result-hide-spec org-babel-hide-all-hashes
(lambda nil (auto-fill-mode 1)))
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-refile-use-outline-path 'file
org-export-interblocks '((lob org-babel-exp-lob-one-liners)
(src org-babel-exp-inline-src-blocks))
org-enforce-todo-dependencies t
org-agenda-skip-deadline-if-done t
org-refile-allow-creating-parent-nodes 'confirm
org-insert-mode-line-in-empty-file t
org-occur-hook '(org-first-headline-recenter)
org-export-preprocess-before-selecting-backend-code-hook
'(org-beamer-select-beamer-code)
org-agenda-todo-ignore-deadlines t
org-export-latex-final-hook '(org-beamer-amend-header org-beamer-fix-toc
org-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-format-dot nil))
)
Debugger entered--Lisp error: (args-out-of-range "" -1 0)
substring("" -1)
(string= "\n" (substring body sub-length))
(if (string= "\n" (substring body sub-length)) (substring body 0 sub-length)
body)
(let* ((body ...) (sub-length ...)) (if (string= "\n" ...) (substring body 0
sub-length) body))
(org-babel-clean-text-properties (let* (... ...) (if ... ... body)))
(let* ((block-indentation ...) (lang ...) (lang-headers ...) (switches ...)
(body ...) (preserve-indentation ...)) (list lang (with-temp-buffer ...)
(org-babel-merge-params org-babel-default-header-args ... ... ... ...) switches
block-indentation))
org-babel-parse-src-block-match()
(setq info (org-babel-parse-src-block-match))
(save-excursion (goto-char head) (setq info
(org-babel-parse-src-block-match)) (setq indent (car ...)) (setq info (butlast
info)) (while (and ... ...) (setf ... ...)) (when (looking-at
org-babel-src-name-w-name-regexp) (setq name ...) (when ... ...)))
(if (setq head (org-babel-where-is-src-block-head)) (save-excursion
(goto-char head) (setq info ...) (setq indent ...) (setq info ...) (while ...
...) (when ... ... ...)) (when (save-excursion ... ...) (setq info ...)))
(let ((case-fold-search t) head info name indent) (if (setq head ...)
(save-excursion ... ... ... ... ... ...) (when ... ...)) (when (and info ...)
(setf ... ...)) (when info (append info ...)))
org-babel-get-src-block-info(light)
(let* ((info ...) (lang ...) (raw-params ...) hash) (when info (when ... ...
...) (setf ... ...) (org-babel-exp-do-export info ... hash)))
(save-excursion (goto-char (match-beginning 0)) (let* (... ... ... hash)
(when info ... ... ...)))
org-babel-exp-src-block("" #("latex" 0 5 (font-lock-fontified t fontified
nil)) #(":exports" 0 8 (font-lock-fontified t fontified nil)) #("none" 0 4
(font-lock-fontified t fontified nil)))
apply(org-babel-exp-src-block "" (#("latex" 0 5 (font-lock-fontified t
fontified nil)) #(":exports" 0 8 (font-lock-fontified t fontified nil))
#("none" 0 4 (font-lock-fontified t fontified nil))))
(if (memq type org-export-blocks-witheld) "" (apply func body headers))
(progn (if (memq type org-export-blocks-witheld) "" (apply func body
headers)))
(unwind-protect (progn (if ... "" ...)) (set-match-data
save-match-data-internal (quote evaporate)))
(let ((save-match-data-internal ...)) (unwind-protect (progn ...)
(set-match-data save-match-data-internal ...)))
(save-match-data (if (memq type org-export-blocks-witheld) "" (apply func
body headers)))
(let ((replacement ...)) (when replacement (delete-region match-start
match-end) (goto-char match-start) (insert replacement) (unless preserve-indent
...)))
(progn (let (...) (when replacement ... ... ... ...)))
(if (setq func (cadr ...)) (progn (let ... ...)))
(when (setq func (cadr ...)) (let (...) (when replacement ... ... ... ...)))
(let* ((match-start ...) (body-start ...) (indentation ...) (inner-re ...)
(type ...) (headers ...) (balanced 1) (preserve-indent ...) match-end) (while
(and ... ...) (if ... ... ...)) (when (not ...) (error "unbalanced begin/end_%s
blocks with %S" type ...)) (setq match-end (match-end 0)) (unless
preserve-indent (setq body ...)) (unless (memq type types) (setq types ...))
(save-match-data (interblock start match-start)) (when (setq func ...) (let ...
...)))
(while (re-search-forward beg-re nil t) (let* (... ... ... ... ... ... ...
... match-end) (while ... ...) (when ... ...) (setq match-end ...) (unless
preserve-indent ...) (unless ... ...) (save-match-data ...) (when ... ...))
(setq start (point)))
(let ((beg-re "^\\([ ]*\\)#\\+begin_\\(\\S-+\\)[ ]*\\(.*\\)?[
\n]")) (while (re-search-forward beg-re nil t) (let* ... ... ... ... ... ...
... ...) (setq start ...)))
(progn (fset (quote interblock) (function* ...)) (goto-char (point-min))
(setq start (point)) (let (...) (while ... ... ...)) (interblock start
(point-max)) (run-hooks (quote org-export-blocks-postblock-hook)))
(unwind-protect (progn (fset ... ...) (goto-char ...) (setq start ...) (let
... ...) (interblock start ...) (run-hooks ...)) (if --cl-letf-bound-- (fset
... --cl-letf-save--) (fmakunbound ...)))
(let* ((--cl-letf-bound-- ...) (--cl-letf-save-- ...)) (unwind-protect (progn
... ... ... ... ... ...) (if --cl-letf-bound-- ... ...)))
(letf ((... ...)) (goto-char (point-min)) (setq start (point)) (let (...)
(while ... ... ...)) (interblock start (point-max)) (run-hooks (quote
org-export-blocks-postblock-hook)))
(letf* ((... ...)) (goto-char (point-min)) (setq start (point)) (let (...)
(while ... ... ...)) (interblock start (point-max)) (run-hooks (quote
org-export-blocks-postblock-hook)))
(flet ((interblock ... ...)) (goto-char (point-min)) (setq start (point))
(let (...) (while ... ... ...)) (interblock start (point-max)) (run-hooks
(quote org-export-blocks-postblock-hook)))
(let ((case-fold-search t) (types ...) matched indentation type func start
end body headers preserve-indent progress-marker) (flet (...) (goto-char ...)
(setq start ...) (let ... ...) (interblock start ...) (run-hooks ...)))
(save-window-excursion (let (... ... matched indentation type func start end
body headers preserve-indent progress-marker) (flet ... ... ... ... ... ...)))
org-export-blocks-preprocess()
(progn (erase-buffer) (insert string) (setq case-fold-search t) (let (...)
(remove-text-properties ... ... ...)) (org-export-kill-licensed-text) (let
(...) (org-mode)) (setq case-fold-search t) (org-clone-local-variables
source-buffer "^\\(org-\\|orgtbl-\\)") (org-install-letbind) (run-hooks (quote
org-export-preprocess-hook)) (untabify (point-min) (point-max))
(org-export-handle-include-files-recurse) (run-hooks (quote
org-export-preprocess-after-include-files-hook))
(org-export-remove-archived-trees archived-trees)
(org-export-remove-comment-blocks-and-subtrees) (org-export-handle-export-tags
(plist-get parameters :select-tags) (plist-get parameters :exclude-tags))
(run-hooks (quote org-export-preprocess-after-tree-selection-hook))
(org-export-remove-tasks (plist-get parameters :tasks)) (when (plist-get
parameters :footnotes) (org-footnote-normalize nil parameters))
(org-export-mark-list-end) (org-export-preprocess-apply-macros) (run-hooks
(quote org-export-preprocess-after-macros-hook)) (org-export-blocks-preprocess)
(org-export-mark-list-properties)
(org-export-replace-src-segments-and-examples)
(org-export-protect-colon-examples) (org-export-convert-protected-spaces) (setq
target-alist (org-export-define-heading-targets target-alist)) (run-hooks
(quote org-export-preprocess-after-headline-targets-hook))
(org-export-remember-html-container-classes)
(org-export-remove-or-extract-drawers drawers (plist-get parameters :drawers))
(when (plist-get parameters :skip-before-1st-heading) (goto-char ...) (when ...
... ... ...)) (when (plist-get parameters :add-text) (goto-char ...) (insert
... "\n")) (org-export-remove-headline-metadata parameters) (setq target-alist
(org-export-handle-invisible-targets target-alist)) (run-hooks (quote
org-export-preprocess-before-selecting-backend-code-hook))
(org-export-select-backend-specific-text) (org-export-protect-quoted-subtrees)
(org-export-remove-clock-lines) (org-export-protect-verbatim)
(org-export-mark-blockquote-verse-center) (run-hooks (quote
org-export-preprocess-after-blockquote-hook)) (unless (plist-get parameters
:timestamps) (org-export-remove-timestamps)) (setq target-alist
(org-export-attach-captions-and-attributes target-alist))
(org-export-mark-radio-links) (run-hooks (quote
org-export-preprocess-after-radio-targets-hook))
(org-export-concatenate-multiline-links) (run-hooks (quote
org-export-preprocess-before-normalizing-links-hook))
(org-export-normalize-links) ...)
(unwind-protect (progn (erase-buffer) (insert string) (setq case-fold-search
t) (let ... ...) (org-export-kill-licensed-text) (let ... ...) (setq
case-fold-search t) (org-clone-local-variables source-buffer
"^\\(org-\\|orgtbl-\\)") (org-install-letbind) (run-hooks ...) (untabify ...
...) (org-export-handle-include-files-recurse) (run-hooks ...)
(org-export-remove-archived-trees archived-trees)
(org-export-remove-comment-blocks-and-subtrees) (org-export-handle-export-tags
... ...) (run-hooks ...) (org-export-remove-tasks ...) (when ... ...)
(org-export-mark-list-end) (org-export-preprocess-apply-macros) (run-hooks ...)
(org-export-blocks-preprocess) (org-export-mark-list-properties)
(org-export-replace-src-segments-and-examples)
(org-export-protect-colon-examples) (org-export-convert-protected-spaces) (setq
target-alist ...) (run-hooks ...) (org-export-remember-html-container-classes)
(org-export-remove-or-extract-drawers drawers ...) (when ... ... ...) (when ...
... ...) (org-export-remove-headline-metadata parameters) (setq target-alist
...) (run-hooks ...) (org-export-select-backend-specific-text)
(org-export-protect-quoted-subtrees) (org-export-remove-clock-lines)
(org-export-protect-verbatim) (org-export-mark-blockquote-verse-center)
(run-hooks ...) (unless ... ...) (setq target-alist ...)
(org-export-mark-radio-links) (run-hooks ...)
(org-export-concatenate-multiline-links) (run-hooks ...)
(org-export-normalize-links) ...) (and (buffer-name temp-buffer) (kill-buffer
temp-buffer)))
(save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn ... ...
... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...
... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...
... ... ... ... ... ... ... ...) (and ... ...)))
(with-current-buffer temp-buffer (unwind-protect (progn ... ... ... ... ...
... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...
... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...
... ... ... ... ...) (and ... ...)))
(let ((temp-buffer ...)) (with-current-buffer temp-buffer (unwind-protect ...
...)))
(with-temp-buffer (erase-buffer) (insert string) (setq case-fold-search t)
(let (...) (remove-text-properties ... ... ...))
(org-export-kill-licensed-text) (let (...) (org-mode)) (setq case-fold-search
t) (org-clone-local-variables source-buffer "^\\(org-\\|orgtbl-\\)")
(org-install-letbind) (run-hooks (quote org-export-preprocess-hook)) (untabify
(point-min) (point-max)) (org-export-handle-include-files-recurse) (run-hooks
(quote org-export-preprocess-after-include-files-hook))
(org-export-remove-archived-trees archived-trees)
(org-export-remove-comment-blocks-and-subtrees) (org-export-handle-export-tags
(plist-get parameters :select-tags) (plist-get parameters :exclude-tags))
(run-hooks (quote org-export-preprocess-after-tree-selection-hook))
(org-export-remove-tasks (plist-get parameters :tasks)) (when (plist-get
parameters :footnotes) (org-footnote-normalize nil parameters))
(org-export-mark-list-end) (org-export-preprocess-apply-macros) (run-hooks
(quote org-export-preprocess-after-macros-hook)) (org-export-blocks-preprocess)
(org-export-mark-list-properties)
(org-export-replace-src-segments-and-examples)
(org-export-protect-colon-examples) (org-export-convert-protected-spaces) (setq
target-alist (org-export-define-heading-targets target-alist)) (run-hooks
(quote org-export-preprocess-after-headline-targets-hook))
(org-export-remember-html-container-classes)
(org-export-remove-or-extract-drawers drawers (plist-get parameters :drawers))
(when (plist-get parameters :skip-before-1st-heading) (goto-char ...) (when ...
... ... ...)) (when (plist-get parameters :add-text) (goto-char ...) (insert
... "\n")) (org-export-remove-headline-metadata parameters) (setq target-alist
(org-export-handle-invisible-targets target-alist)) (run-hooks (quote
org-export-preprocess-before-selecting-backend-code-hook))
(org-export-select-backend-specific-text) (org-export-protect-quoted-subtrees)
(org-export-remove-clock-lines) (org-export-protect-verbatim)
(org-export-mark-blockquote-verse-center) (run-hooks (quote
org-export-preprocess-after-blockquote-hook)) (unless (plist-get parameters
:timestamps) (org-export-remove-timestamps)) (setq target-alist
(org-export-attach-captions-and-attributes target-alist))
(org-export-mark-radio-links) (run-hooks (quote
org-export-preprocess-after-radio-targets-hook))
(org-export-concatenate-multiline-links) (run-hooks (quote
org-export-preprocess-before-normalizing-links-hook))
(org-export-normalize-links) ...)
(let* ((org-export-current-backend ...) (archived-trees ...)
(inhibit-read-only t) (drawers org-drawers) (source-buffer ...) target-alist
rtn) (setq org-export-target-aliases nil org-export-preferred-target-alist nil
org-export-id-target-alist nil org-export-code-refs nil) (with-temp-buffer
(erase-buffer) (insert string) (setq case-fold-search t) (let ... ...)
(org-export-kill-licensed-text) (let ... ...) (setq case-fold-search t)
(org-clone-local-variables source-buffer "^\\(org-\\|orgtbl-\\)")
(org-install-letbind) (run-hooks ...) (untabify ... ...)
(org-export-handle-include-files-recurse) (run-hooks ...)
(org-export-remove-archived-trees archived-trees)
(org-export-remove-comment-blocks-and-subtrees) (org-export-handle-export-tags
... ...) (run-hooks ...) (org-export-remove-tasks ...) (when ... ...)
(org-export-mark-list-end) (org-export-preprocess-apply-macros) (run-hooks ...)
(org-export-blocks-preprocess) (org-export-mark-list-properties)
(org-export-replace-src-segments-and-examples)
(org-export-protect-colon-examples) (org-export-convert-protected-spaces) (setq
target-alist ...) (run-hooks ...) (org-export-remember-html-container-classes)
(org-export-remove-or-extract-drawers drawers ...) (when ... ... ...) (when ...
... ...) (org-export-remove-headline-metadata parameters) (setq target-alist
...) (run-hooks ...) (org-export-select-backend-specific-text)
(org-export-protect-quoted-subtrees) (org-export-remove-clock-lines)
(org-export-protect-verbatim) (org-export-mark-blockquote-verse-center)
(run-hooks ...) (unless ... ...) (setq target-alist ...)
(org-export-mark-radio-links) (run-hooks ...)
(org-export-concatenate-multiline-links) (run-hooks ...)
(org-export-normalize-links) ...) rtn)
org-export-preprocess-string(#("This is a test.\n\n#+BEGIN_SRC latex :exports
none\n\\newcommand{\\test}{Test}\n#+END_SRC\n\n" 0 16 (fontified nil
:org-license-to-kill t) 16 17 (fontified nil :org-license-to-kill t) 17 48
(fontified nil font-lock-fontified t) 48 49 (fontified nil font-lock-fontified
t) 49 73 (fontified nil font-lock-fontified t :org-license-to-kill t) 73 74
(fontified nil font-lock-fontified t :org-license-to-kill t) 74 83 (fontified
nil font-lock-fontified t) 83 84 (fontified nil) 84 85 (fontified nil))
:emph-multiline t :for-backend latex :comments nil :tags not-in-toc :priority
nil :footnotes t :drawers nil :timestamps t :todo-keywords t :tasks t :add-text
nil :skip-before-1st-heading nil :select-tags ("export") :exclude-tags
("noexport") :LaTeX-fragments nil)
(let* ((wcf ...) (opt-plist ...) (region-p ...) (rbeg ...) (rend ...)
(subtree-p ...) (opt-plist ...) (org-export-latex-options-plist ...)
(org-current-export-dir ...) (org-current-export-file buffer-file-name) (title
...) (filename ...) (filename ...) (buffer ...) (odd org-odd-levels-only)
(header ...) (skip ...) (text ...) (org-export-preprocess-hook ...)
(first-lines ...) (coding-system ...) (coding-system-for-write ...)
(save-buffer-coding-system ...) (region ...) (text ...) (string-for-export
...)) (set-buffer buffer) (erase-buffer) (org-install-letbind) (and (fboundp
...) (set-buffer-file-coding-system coding-system-for-write)) (unless (or ...
body-only) (insert header)) (when (and text ...) (insert ... "\n\n")) (unless
(or skip ...) (insert first-lines)) (org-export-latex-global (with-temp-buffer
... ... ...)) (unless body-only (insert "\n\\end{document}")) (goto-char
(point-min)) (while (re-search-forward "^[ ]*\\\\item\\([ ]+\\)\\[" nil t)
(delete-region ... ...)) (goto-char (point-min)) (when (re-search-forward
"\\[TABLE-OF-CONTENTS\\]" nil t) (goto-char ...) (while ... ...) (goto-char
...) (and ... ...)) (goto-char (point-min)) (while (re-search-forward "^[
]*\\\\item\\>.*\\(\\\\\\\\\\)[ ]*\\(\n\\\\label.*\\)*\n\\\\begin" nil t)
(delete-region ... ...)) (goto-char (point-min)) (while (re-search-forward "^[
]*\\\\item\\>.*\\(\\\\\\\\\\)[ ]*\\(\n\\\\label.*\\)*" nil t) (if ...
...)) (run-hooks (quote org-export-latex-final-hook)) (if to-buffer (unless ...
...) (save-buffer)) (org-export-latex-fix-inputenc) (run-hooks (quote
org-export-latex-after-save-hook)) (goto-char (point-min)) (or
(org-export-push-to-kill-ring "LaTeX") (message "Exporting to LaTeX...done"))
(prog1 (if ... ... ...) (set-window-configuration wcf)))
org-export-as-latex(nil nil nil "*Org LaTeX Export*")
org-export-as-latex-to-buffer(nil)
call-interactively(org-export-as-latex-to-buffer)
(if (and bg (nth 2 ass) (not ...) (not ...)) (let (...) (set-process-sentinel
p ...) (message "Background process \"%s\": started" p)) (if subtree-p (progn
... ...)) (call-interactively (nth 1 ass)) (when (and bpos ...) (let ... ...
... ... ...)))
(let* ((bg ...) (subtree-p ...) (help "[t] insert the export option
template\n[v] limit export to visible part of outline tree\n[1] switch
buffer/subtree export\n[SPC] publish enclosing subtree (with LaTeX_CLASS or
EXPORT_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 as XOXO\n[g] export using
Wes Hardaker's generic exporter\n\n[i] export current 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] publish current project\n[X]
publish a project... [E] publish every projects") (cmds ...) r1 r2 ass
(cpos ...) (cbuf ...) bpos) (save-excursion (save-window-excursion ... ... ...
... ... ...)) (redisplay) (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)
