Re: eval: Invalid read syntax: "#"Error during redisplay: (void-function -mode)

["Thomas S. Dye" <tsd@tsdye.com>]

Aloha Nick,

On Dec 10, 2010, at 8:34 AM, Nick Dokos wrote:

> Thomas S. Dye <tsd@tsdye.com> wrote:
>
>> So, Seb and I have two things that others can't reproduce: the error
>> in the OP, and the version string for the latest Org-mode.
>>
>
> Looks that way :-)
>
> BTW, can you get a backtrace for the OP?
>
> Nick


Here you go:

Debugger entered--Lisp error: (invalid-read-syntax "#")
   read("(progn #+end_src\n#+begin_src emacs-lisp :var lst=a- 
list :results list\n)")
   (eval (read (format "(progn %s)" ...)))
   (org-babel-reassemble-table (eval (read ...)) (org-babel-pick-name  
(cdr ...) (cdr ...)) (org-babel-pick-name (cdr ...) (cdr ...)))
   (save-window-excursion (org-babel-reassemble-table (eval ...) (org- 
babel-pick-name ... ...) (org-babel-pick-name ... ...)))
   org-babel-execute:emacs-lisp("#+end_src\n#+begin_src emacs- 
lisp :var lst=a-list :results list\n" ((:comments . "") (:shebang .  
"") (:cache . "no") (:noweb . "yes") (:tangle . "no") (:exports .  
"both") (:results . "replace wrap") (:colnames . "no") (:hlines .  
"yes") (:session . "none") (:result-type . value) (:result-params  
"replace" "wrap") (:rowname-names) (:colname-names)))
   funcall(org-babel-execute:emacs-lisp "#+end_src\n#+begin_src emacs- 
lisp :var lst=a-list :results list\n" ((:comments . "") (:shebang .  
"") (:cache . "no") (:noweb . "yes") (:tangle . "no") (:exports .  
"both") (:results . "replace wrap") (:colnames . "no") (:hlines .  
"yes") (:session . "none") (:result-type . value) (:result-params  
"replace" "wrap") (:rowname-names) (:colname-names)))
   ((lambda (result) (cond ... ... ...)) (funcall cmd body params))
   (setq result ((lambda ... ...) (funcall cmd body params)))
   (if (and (not arg) new-hash (equal new-hash old-hash)) (save- 
excursion (goto-char ...) (end-of-line 1) (forward-char 1) (setq  
result ...) (message ...) result) (message "executing %s code block 
%s..." (capitalize lang) (if ... ... "")) (setq result (... ...)) (org- 
babel-insert-result result result-params info new-hash indent lang)  
(run-hooks (quote org-babel-after-execute-hook)) result)
   (progn (fset (quote call-process-region) (function* ...)) (unless  
(fboundp cmd) (error "No org-babel-execute function for %s!" lang))  
(if (and ... new-hash ...) (save-excursion ... ... ... ... ... result)  
(message "executing %s code block%s..." ... ...) (setq result ...)  
(org-babel-insert-result result result-params info new-hash indent  
lang) (run-hooks ...) result))
   (unwind-protect (progn (fset ... ...) (unless ... ...)  
(if ... ... ... ... ... ... result)) (if --cl-letf-bound-- (fset ... -- 
cl-letf-save--) (fmakunbound ...)))
   (let* ((--cl-letf-bound-- ...) (--cl-letf-save-- ...)) (unwind- 
protect (progn ... ... ...) (if --cl-letf-bound-- ... ...)))
   (letf ((... ...)) (unless (fboundp cmd) (error "No org-babel- 
execute function for %s!" lang)) (if (and ... new-hash ...) (save- 
excursion ... ... ... ... ... result) (message "executing %s code block 
%s..." ... ...) (setq result ...) (org-babel-insert-result result  
result-params info new-hash indent lang) (run-hooks ...) result))
   (letf* ((... ...)) (unless (fboundp cmd) (error "No org-babel- 
execute function for %s!" lang)) (if (and ... new-hash ...) (save- 
excursion ... ... ... ... ... result) (message "executing %s code block 
%s..." ... ...) (setq result ...) (org-babel-insert-result result  
result-params info new-hash indent lang) (run-hooks ...) result))
   (flet ((call-process-region ... ...)) (unless (fboundp cmd) (error  
"No org-babel-execute function for %s!" lang)) (if (and ... new- 
hash ...) (save-excursion ... ... ... ... ... result) (message  
"executing %s code block%s..." ... ...) (setq result ...) (org-babel- 
insert-result result result-params info new-hash indent lang) (run- 
hooks ...) result))
   (unwind-protect (flet (...) (unless ... ...)  
(if ... ... ... ... ... ... result)) (setq call-process-region (quote  
org-babel-call-process-region-original)))
   (let* ((lang ...) (params ...) (cache\? ...) (result-params ...)  
(new-hash ...) (old-hash ...) (body ...) (cmd ...) (dir ...) (default- 
directory ...) (org-babel-call-process-region-original ...)  
(indent ...) result) (unwind-protect (flet ... ... ...) (setq call- 
process-region ...)))
   (progn (let* (... ... ... ... ... ... ... ... ... ... ... ...  
result) (unwind-protect ... ...)))
   (if (org-babel-confirm-evaluate info) (progn (let* ... ...)))
   (when (org-babel-confirm-evaluate info) (let*  
(... ... ... ... ... ... ... ... ... ... ... ... result) (unwind- 
protect ... ...)))
   (let ((info ...)) (when (org-babel-confirm-evaluate info)  
(let* ... ...)))
   org-babel-execute-src-block(nil ("emacs-lisp" "#+end_src\n# 
+begin_src emacs-lisp :var lst=a-list :results list\n" ((:comments .  
"") (:shebang . "") (:cache . "no") (:noweb . "yes") (:tangle . "no")  
(:exports . "both") (:results . "replace wrap") (:colnames . "no")  
(:hlines . "yes") (:session . "none") (:result-type . value) (:result- 
params "replace" "wrap") (:rowname-names) (:colname-names)) "" nil 0))
   (cond ((equal type ...) (org-babel-execute-src-block nil info))  
((equal type ...) (save-excursion ... ...)))
   (prog1 nil (setf (nth 2 info) (org-babel-merge-params ... ...))  
(cond (... ...) (... ...)))
   (if (equal type (quote inline)) (let (... ...) (unless silent ...))  
(prog1 nil (setf ... ...) (cond ... ...)))
   (progn (org-babel-eval-wipe-error-buffer) (if (equal type ...)  
(let ... ...) (prog1 nil ... ...)))
   (if (fboundp (intern ...)) (progn (org-babel-eval-wipe-error- 
buffer) (if ... ... ...)))
   (when (fboundp (intern ...)) (org-babel-eval-wipe-error-buffer) (if  
(equal type ...) (let ... ...) (prog1 nil ... ...)))
   (let ((lang ...) (body ...)) (setf (nth 2 info) (org-babel-exp-in- 
export-file ...)) (when (fboundp ...) (org-babel-eval-wipe-error- 
buffer) (if ... ... ...)))
   (progn (let (... ...) (setf ... ...) (when ... ... ...)))
   (if org-export-babel-evaluate (progn (let ... ... ...)))
   (when org-export-babel-evaluate (let (... ...) (setf ... ...)  
(when ... ... ...)))
   (or (when org-export-babel-evaluate (let ... ... ...)) "")
   org-babel-exp-results(("emacs-lisp" "#+end_src\n#+begin_src emacs- 
lisp :var lst=a-list :results list\n" ((:comments . "") (:shebang .  
"") (:cache . "no") (:noweb . "yes") (:tangle . "no") (:exports .  
"both") (:results . "replace wrap") (:colnames . "no") (:hlines .  
"yes") (:session . "none") (:result-type . value) (:result-params  
"replace" "wrap") (:rowname-names) (:colname-names)) "" nil 0) block)
   (concat (org-babel-exp-code info type) "\n\n" (org-babel-exp- 
results info type))
   (cond ((member* --cl-var-- ...) (silently) (clean) "") ((member* -- 
cl-var-- ...) (silently) (clean) (org-babel-exp-code info type))  
((member* --cl-var-- ...) (org-babel-exp-results info type)) ((member*  
--cl-var-- ...) (concat ... "\n\n" ...)))
   (let ((--cl-var-- ...)) (cond (... ... ... "") (... ... ... ...)  
(... ...) (... ...)))
   (case (intern (or ... "code")) ((quote none) (silently) (clean) "")  
((quote code) (silently) (clean) (org-babel-exp-code info type))  
((quote results) (org-babel-exp-results info type)) ((quote both)  
(concat ... "\n\n" ...)))
   (progn (fset (quote clean) (function* ...)) (case (intern ...)  
(... ... ... "") (... ... ... ...) (... ...) (... ...)))
   (unwind-protect (progn (fset ... ...) (case ... ... ... ... ...))  
(if --cl-letf-bound-- (fset ... --cl-letf-save--) (fmakunbound ...)))
   (let* ((--cl-letf-bound-- ...) (--cl-letf-save-- ...)) (unwind- 
protect (progn ... ...) (if --cl-letf-bound-- ... ...)))
   (letf ((... ...)) (case (intern ...) (... ... ... "")  
(... ... ... ...) (... ...) (... ...)))
   (progn (fset (quote silently) (function* ...)) (letf (...)  
(case ... ... ... ... ...)))
   (unwind-protect (progn (fset ... ...) (letf ... ...)) (if --cl-letf- 
bound-- (fset ... --cl-letf-save--) (fmakunbound ...)))
   (let* ((--cl-letf-bound-- ...) (--cl-letf-save-- ...)) (unwind- 
protect (progn ... ...) (if --cl-letf-bound-- ... ...)))
   (letf ((... ...)) (letf (...) (case ... ... ... ... ...)))
   (letf* ((... ...) (... ...)) (case (intern ...) (... ... ... "")  
(... ... ... ...) (... ...) (... ...)))
   (flet ((silently nil ...) (clean nil ...)) (case (intern ...)  
(... ... ... "") (... ... ... ...) (... ...) (... ...)))
   org-babel-exp-do-export(("emacs-lisp" "#+end_src\n#+begin_src emacs- 
lisp :var lst=a-list :results list\n" ((:comments . "") (:shebang .  
"") (:cache . "no") (:noweb . "yes") (:tangle . "no") (:exports .  
"both") (:results . "replace wrap") (:colnames . "no") (:hlines .  
"yes") (:session . "none") (:result-type . value) (:result-params  
"replace" "wrap") (:rowname-names) (:colname-names)) "" nil 0) block)
   (progn (org-babel-exp-in-export-file (setf ... ...)) (setf (nth 1  
info) (if ... ... ...)) (org-babel-exp-do-export info (quote block)))
   (if info (progn (org-babel-exp-in-export-file ...) (setf ... ...)  
(org-babel-exp-do-export info ...)))
   (when info (org-babel-exp-in-export-file (setf ... ...)) (setf (nth  
1 info) (if ... ... ...)) (org-babel-exp-do-export info (quote block)))
   (let* ((info ...) (lang ...) (raw-params ...)) (when info (org- 
babel-exp-in-export-file ...) (setf ... ...) (org-babel-exp-do-export  
info ...)))
   (save-excursion (goto-char (match-beginning 0)) (let* (... ... ...)  
(when info ... ... ...)))
   org-babel-exp-src-blocks(#("#+end_src\n#+begin_src emacs-lisp :var  
lst=a-list :results list" 0 8 (font-lock-fontified t fontified nil) 8  
9 (font-lock-fontified t fontified nil) 9 10 (rear-nonsticky t  
fontified nil) 10 33 (font-lock-fontified t fontified nil) 33 62 (font- 
lock-fontified t fontified nil)) #("emacs-lisp" 0 10 (fontified nil  
font-lock-fontified t)) #(":results" 0 8 (fontified nil font-lock- 
fontified t)) #("wrap" 0 4 (fontified nil font-lock-fontified t))  
#(":exports" 0 8 (fontified nil font-lock-fontified t)) #("both" 0 4  
(fontified nil font-lock-fontified t)))
   apply(org-babel-exp-src-blocks #("#+end_src\n#+begin_src emacs- 
lisp :var lst=a-list :results list" 0 8 (font-lock-fontified t  
fontified nil) 8 9 (font-lock-fontified t fontified nil) 9 10 (rear- 
nonsticky t fontified nil) 10 33 (font-lock-fontified t fontified nil)  
33 62 (font-lock-fontified t fontified nil)) (#("emacs-lisp" 0 10  
(fontified nil font-lock-fontified t)) #(":results" 0 8 (fontified nil  
font-lock-fontified t)) #("wrap" 0 4 (fontified nil font-lock- 
fontified t)) #(":exports" 0 8 (fontified nil font-lock-fontified t))  
#("both" 0 4 (fontified nil font-lock-fontified t))))
   (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 (replace-match  
replacement t t) (unless preserve-indent ...)))
   (progn (let (...) (when replacement ... ...)))
   (if (setq func (cadr ...)) (progn (let ... ...)))
   (when (setq func (cadr ...)) (let (...) (when replacement ... ...)))
   (while (re-search-forward "^\\([ 	]*\\)#\\+begin_\\(\\S-+\\)[ 	]*\\ 
(.*\\)?[
\n]\\([^\0]*?\\)[
\n][ 	]*#\\+end_\\S-+.*[
\n]?" nil t) (setq indentation (length ...)) (setq type (intern ...))  
(setq headers (save-match-data ...)) (setq body (match-string 4))  
(setq preserve-indent (or org-src-preserve-indentation ...)) (unless  
preserve-indent (setq body ...)) (unless (memq type types) (setq  
types ...)) (save-match-data (interblock start ...)) (when (setq  
func ...) (let ... ...)) (setq start (match-end 0)))
   (progn (fset (quote interblock) (function* ...)) (goto-char (point- 
min)) (setq start (point)) (while (re-search-forward "^\\([ 	]*\\)#\\ 
+begin_\\(\\S-+\\)[ 	]*\\(.*\\)?[
\n]\\([^\0]*?\\)[
\n][ 	]*#\\+end_\\S-+.*[
\n]?" nil t) (setq indentation ...) (setq type ...) (setq headers ...)  
(setq body ...) (setq preserve-indent ...) (unless preserve- 
indent ...) (unless ... ...) (save-match-data ...) (when ... ...)  
(setq start ...)) (interblock start (point-max)) (run-hooks (quote org- 
export-blocks-postblock-hook)))
   (unwind-protect (progn (fset ... ...) (goto-char ...) (setq  
start ...) (while ... ... ... ... ... ... ... ... ... ... ...)  
(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))  
(while (re-search-forward "^\\([ 	]*\\)#\\+begin_\\(\\S-+\\)[ 	]*\\(.*\ 
\)?[
\n]\\([^\0]*?\\)[
\n][ 	]*#\\+end_\\S-+.*[
\n]?" nil t) (setq indentation ...) (setq type ...) (setq headers ...)  
(setq body ...) (setq preserve-indent ...) (unless preserve- 
indent ...) (unless ... ...) (save-match-data ...) (when ... ...)  
(setq start ...)) (interblock start (point-max)) (run-hooks (quote org- 
export-blocks-postblock-hook)))
   (letf* ((... ...)) (goto-char (point-min)) (setq start (point))  
(while (re-search-forward "^\\([ 	]*\\)#\\+begin_\\(\\S-+\\)[ 	]*\\(.*\ 
\)?[
\n]\\([^\0]*?\\)[
\n][ 	]*#\\+end_\\S-+.*[
\n]?" nil t) (setq indentation ...) (setq type ...) (setq headers ...)  
(setq body ...) (setq preserve-indent ...) (unless preserve- 
indent ...) (unless ... ...) (save-match-data ...) (when ... ...)  
(setq start ...)) (interblock start (point-max)) (run-hooks (quote org- 
export-blocks-postblock-hook)))
   (flet ((interblock ... ...)) (goto-char (point-min)) (setq start  
(point)) (while (re-search-forward "^\\([ 	]*\\)#\\+begin_\\(\\S-+\\) 
[ 	]*\\(.*\\)?[
\n]\\([^\0]*?\\)[
\n][ 	]*#\\+end_\\S-+.*[
\n]?" nil t) (setq indentation ...) (setq type ...) (setq headers ...)  
(setq body ...) (setq preserve-indent ...) (unless preserve- 
indent ...) (unless ... ...) (save-match-data ...) (when ... ...)  
(setq start ...)) (interblock start (point-max)) (run-hooks (quote org- 
export-blocks-postblock-hook)))
   (let ((case-fold-search t) (types ...) indentation type func start  
body headers preserve-indent progress-marker) (flet (...) (goto- 
char ...) (setq start ...)  
(while ... ... ... ... ... ... ... ... ... ... ...) (interblock  
start ...) (run-hooks ...)))
   (save-window-excursion (let (... ... indentation type func start  
body headers preserve-indent progress-marker)  
(flet ... ... ... ... ... ...)))
   org-export-blocks-preprocess()
   (save-current-buffer (set-buffer (get-buffer-create " org-mode- 
tmp")) (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-install- 
letbind) (run-hooks (quote org-export-preprocess-hook)) (org-export- 
preprocess-apply-macros) (run-hooks (quote org-export-preprocess-after- 
macros-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-mark-list-ending backend) (org- 
export-blocks-preprocess) (org-export-replace-src-segments-and- 
examples backend) (org-export-protect-colon-examples) (org-export- 
convert-protected-spaces backend) (when (plist-get  
parameters :footnotes) (org-footnote-normalize nil t)) (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) backend) (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  
backend) (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 backend 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) (org-export-target-internal-links target-alist) (when (plist- 
get parameters :emph-multiline) (org-export-concatenate-multiline- 
emphasis)) ...)
   (with-current-buffer (get-buffer-create " org-mode-tmp") (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-install-letbind) (run- 
hooks (quote org-export-preprocess-hook)) (org-export-preprocess-apply- 
macros) (run-hooks (quote org-export-preprocess-after-macros-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-mark-list-ending backend) (org-export-blocks- 
preprocess) (org-export-replace-src-segments-and-examples backend)  
(org-export-protect-colon-examples) (org-export-convert-protected- 
spaces backend) (when (plist-get parameters :footnotes) (org-footnote- 
normalize nil t)) (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) backend) (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 backend) (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 backend 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) (org-export- 
target-internal-links target-alist) (when (plist-get parameters :emph- 
multiline) (org-export-concatenate-multiline-emphasis)) ...)
   (let* ((htmlp ...) (asciip ...) (latexp ...) (docbookp ...)  
(backend ...) (archived-trees ...) (inhibit-read-only t) (drawers org- 
drawers) (outline-regexp "\\*+ ") 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-current-buffer (get- 
buffer-create " org-mode-tmp") (erase-buffer) (insert string) (setq  
case-fold-search t) (let ... ...) (org-export-kill-licensed-text)  
(let ... ...) (setq case-fold-search t) (org-install-letbind) (run- 
hooks ...) (org-export-preprocess-apply-macros) (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-mark-list-ending backend)  
(org-export-blocks-preprocess) (org-export-replace-src-segments-and- 
examples backend) (org-export-protect-colon-examples) (org-export- 
convert-protected-spaces backend) (when ... ...) (setq target- 
alist ...) (run-hooks ...) (org-export-remember-html-container- 
classes) (org-export-remove-or-extract-drawers drawers ... backend)  
(when ... ... ...) (when ... ... ...) (org-export-remove-headline- 
metadata parameters) (setq target-alist ...) (run-hooks ...) (org- 
export-select-backend-specific-text backend) (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) (org-export-target-internal- 
links target-alist) (when ... ...) ...) (kill-buffer " org-mode-tmp")  
rtn)
   org-export-preprocess-string(#("* Export problem\n\n#+begin_src  
emacs-lisp :results wrap :exports both\n   \"code block results\"\n# 
+end_src\n\n#+begin_src emacs-lisp :var lst=a-list :results list\n    
(reverse lst)\n#+end_src\n\n" 0 2 (fontified nil :org-license-to-kill  
t) 2 16 (fontified nil :org-license-to-kill t) 16 17 (fontified  
nil :org-license-to-kill t) 17 18 (fontified nil :org-license-to-kill  
t) 18 68 (font-lock-fontified t fontified nil) 68 69 (font-lock- 
fontified t fontified nil) 69 72 (font-lock-fontified t fontified  
nil :org-license-to-kill t) 72 73 (font-lock-fontified t fontified  
nil :org-license-to-kill t) 73 92 (font-lock-fontified t fontified  
nil :org-license-to-kill t) 92 93 (font-lock-fontified t fontified  
nil :org-license-to-kill t) 93 101 (font-lock-fontified t fontified  
nil) 101 102 (font-lock-fontified t fontified nil) 102 103 (rear- 
nonsticky t fontified nil) 103 104 (fontified nil :org-license-to-kill  
t) 104 127 (font-lock-fontified t fontified nil) 127 156 (font-lock- 
fontified t fontified nil) 156 157 (font-lock-fontified t fontified  
nil) 157 160 (font-lock-fontified t fontified nil :org-license-to-kill  
t) 160 161 (font-lock-fontified t fontified nil :org-license-to-kill  
t) 161 162 (font-lock-fontified t fontified nil :org-license-to-kill  
t) 162 172 (font-lock-fontified t fontified nil :org-license-to-kill  
t) 172 173 (rear-nonsticky t font-lock-fontified t fontified nil :org- 
license-to-kill t) 173 174 (font-lock-fontified t fontified nil :org- 
license-to-kill t) 174 182 (font-lock-fontified t fontified nil) 182  
183 (font-lock-fontified t fontified nil) 183 184 (rear-nonsticky t  
fontified nil) 184 185 (fontified nil)) :emph-multiline t :for-LaTeX  
t :comments nil :tags not-in-toc :priority nil :footnotes t :drawers  
nil :timestamps t :todo-keywords t :add-text nil :skip-before-1st- 
heading nil :select-tags ("export") :exclude-tags ("noexport") :LaTeX- 
fragments nil)
   (let* ((wcf ...) (opt-plist org-export-latex-options-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 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)
   call-interactively(org-export-as-latex)
   (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]    
only export the current subtree\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[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 ... ... ... ... ... ... ...)) (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)