From mboxrd@z Thu Jan  1 00:00:00 1970
From: "Thomas S. Dye" <tsd@tsdye.com>
Subject: Re: eval: Invalid read syntax: "#"Error during redisplay:
 (void-function -mode)
Date: Fri, 10 Dec 2010 08:55:23 -1000
Message-ID: <70AD4E61-81F8-4549-BA66-79951485119E@tsdye.com>
References: <ED7B1537-A7E8-470A-A17D-A67B57AB4C06@tsdye.com>
	<26374.1292004951@gamaville.dokosmarshall.org>
	<4A9A4769-88C0-4FB3-8D94-17ED3C2DAC81@tsdye.com>
	<27046.1292006058@gamaville.dokosmarshall.org>
Mime-Version: 1.0 (Apple Message framework v936)
Content-Type: text/plain; charset=US-ASCII; format=flowed; delsp=yes
Content-Transfer-Encoding: quoted-printable
Return-path: <emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org>
Received: from [140.186.70.92] (port=47152 helo=eggs.gnu.org)
	by lists.gnu.org with esmtp (Exim 4.43) id 1PR88Z-0001sC-KU
	for emacs-orgmode@gnu.org; Fri, 10 Dec 2010 13:56:20 -0500
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
	(envelope-from <tsd@tsdye.com>) id 1PR88N-0002H7-Km
	for emacs-orgmode@gnu.org; Fri, 10 Dec 2010 13:56:11 -0500
Received: from oproxy3-pub.bluehost.com ([69.89.21.8]:51876)
	by eggs.gnu.org with smtp (Exim 4.71) (envelope-from <tsd@tsdye.com>)
	id 1PR88N-0002Fv-9W
	for emacs-orgmode@gnu.org; Fri, 10 Dec 2010 13:55:59 -0500
In-Reply-To: <27046.1292006058@gamaville.dokosmarshall.org>
List-Id: "General discussions about Org-mode." <emacs-orgmode.gnu.org>
List-Unsubscribe: <http://lists.gnu.org/mailman/listinfo/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: <http://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=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: nicholas.dokos@hp.com
Cc: emacs-orgmode list <emacs-orgmode@gnu.org>

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=3Da-=20
list :results list\n)")
   (eval (read (format "(progn %s)" ...)))
   (org-babel-reassemble-table (eval (read ...)) (org-babel-pick-name =20=

(cdr ...) (cdr ...)) (org-babel-pick-name (cdr ...) (cdr ...)))
   (save-window-excursion (org-babel-reassemble-table (eval ...) (org-=20=

babel-pick-name ... ...) (org-babel-pick-name ... ...)))
   org-babel-execute:emacs-lisp("#+end_src\n#+begin_src emacs-=20
lisp :var lst=3Da-list :results list\n" ((:comments . "") (:shebang . =20=

"") (:cache . "no") (:noweb . "yes") (:tangle . "no") (:exports . =20
"both") (:results . "replace wrap") (:colnames . "no") (:hlines . =20
"yes") (:session . "none") (:result-type . value) (:result-params =20
"replace" "wrap") (:rowname-names) (:colname-names)))
   funcall(org-babel-execute:emacs-lisp "#+end_src\n#+begin_src emacs-=20=

lisp :var lst=3Da-list :results list\n" ((:comments . "") (:shebang . =20=

"") (:cache . "no") (:noweb . "yes") (:tangle . "no") (:exports . =20
"both") (:results . "replace wrap") (:colnames . "no") (:hlines . =20
"yes") (:session . "none") (:result-type . value) (:result-params =20
"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-=20
excursion (goto-char ...) (end-of-line 1) (forward-char 1) (setq =20
result ...) (message ...) result) (message "executing %s code block=20
%s..." (capitalize lang) (if ... ... "")) (setq result (... ...)) (org-=20=

babel-insert-result result result-params info new-hash indent lang) =20
(run-hooks (quote org-babel-after-execute-hook)) result)
   (progn (fset (quote call-process-region) (function* ...)) (unless =20
(fboundp cmd) (error "No org-babel-execute function for %s!" lang)) =20
(if (and ... new-hash ...) (save-excursion ... ... ... ... ... result) =20=

(message "executing %s code block%s..." ... ...) (setq result ...) =20
(org-babel-insert-result result result-params info new-hash indent =20
lang) (run-hooks ...) result))
   (unwind-protect (progn (fset ... ...) (unless ... ...) =20
(if ... ... ... ... ... ... result)) (if --cl-letf-bound-- (fset ... --=20=

cl-letf-save--) (fmakunbound ...)))
   (let* ((--cl-letf-bound-- ...) (--cl-letf-save-- ...)) (unwind-=20
protect (progn ... ... ...) (if --cl-letf-bound-- ... ...)))
   (letf ((... ...)) (unless (fboundp cmd) (error "No org-babel-=20
execute function for %s!" lang)) (if (and ... new-hash ...) (save-=20
excursion ... ... ... ... ... result) (message "executing %s code block=20=

%s..." ... ...) (setq result ...) (org-babel-insert-result result =20
result-params info new-hash indent lang) (run-hooks ...) result))
   (letf* ((... ...)) (unless (fboundp cmd) (error "No org-babel-=20
execute function for %s!" lang)) (if (and ... new-hash ...) (save-=20
excursion ... ... ... ... ... result) (message "executing %s code block=20=

%s..." ... ...) (setq result ...) (org-babel-insert-result result =20
result-params info new-hash indent lang) (run-hooks ...) result))
   (flet ((call-process-region ... ...)) (unless (fboundp cmd) (error =20=

"No org-babel-execute function for %s!" lang)) (if (and ... new-=20
hash ...) (save-excursion ... ... ... ... ... result) (message =20
"executing %s code block%s..." ... ...) (setq result ...) (org-babel-=20
insert-result result result-params info new-hash indent lang) (run-=20
hooks ...) result))
   (unwind-protect (flet (...) (unless ... ...) =20
(if ... ... ... ... ... ... result)) (setq call-process-region (quote =20=

org-babel-call-process-region-original)))
   (let* ((lang ...) (params ...) (cache\? ...) (result-params ...) =20
(new-hash ...) (old-hash ...) (body ...) (cmd ...) (dir ...) (default-=20=

directory ...) (org-babel-call-process-region-original ...) =20
(indent ...) result) (unwind-protect (flet ... ... ...) (setq call-=20
process-region ...)))
   (progn (let* (... ... ... ... ... ... ... ... ... ... ... ... =20
result) (unwind-protect ... ...)))
   (if (org-babel-confirm-evaluate info) (progn (let* ... ...)))
   (when (org-babel-confirm-evaluate info) (let* =20
(... ... ... ... ... ... ... ... ... ... ... ... result) (unwind-=20
protect ... ...)))
   (let ((info ...)) (when (org-babel-confirm-evaluate info) =20
(let* ... ...)))
   org-babel-execute-src-block(nil ("emacs-lisp" "#+end_src\n#=20
+begin_src emacs-lisp :var lst=3Da-list :results list\n" ((:comments . =20=

"") (:shebang . "") (:cache . "no") (:noweb . "yes") (:tangle . "no") =20=

(:exports . "both") (:results . "replace wrap") (:colnames . "no") =20
(:hlines . "yes") (:session . "none") (:result-type . value) (:result-=20=

params "replace" "wrap") (:rowname-names) (:colname-names)) "" nil 0))
   (cond ((equal type ...) (org-babel-execute-src-block nil info)) =20
((equal type ...) (save-excursion ... ...)))
   (prog1 nil (setf (nth 2 info) (org-babel-merge-params ... ...)) =20
(cond (... ...) (... ...)))
   (if (equal type (quote inline)) (let (... ...) (unless silent ...)) =20=

(prog1 nil (setf ... ...) (cond ... ...)))
   (progn (org-babel-eval-wipe-error-buffer) (if (equal type ...) =20
(let ... ...) (prog1 nil ... ...)))
   (if (fboundp (intern ...)) (progn (org-babel-eval-wipe-error-=20
buffer) (if ... ... ...)))
   (when (fboundp (intern ...)) (org-babel-eval-wipe-error-buffer) (if =20=

(equal type ...) (let ... ...) (prog1 nil ... ...)))
   (let ((lang ...) (body ...)) (setf (nth 2 info) (org-babel-exp-in-=20
export-file ...)) (when (fboundp ...) (org-babel-eval-wipe-error-=20
buffer) (if ... ... ...)))
   (progn (let (... ...) (setf ... ...) (when ... ... ...)))
   (if org-export-babel-evaluate (progn (let ... ... ...)))
   (when org-export-babel-evaluate (let (... ...) (setf ... ...) =20
(when ... ... ...)))
   (or (when org-export-babel-evaluate (let ... ... ...)) "")
   org-babel-exp-results(("emacs-lisp" "#+end_src\n#+begin_src emacs-=20
lisp :var lst=3Da-list :results list\n" ((:comments . "") (:shebang . =20=

"") (:cache . "no") (:noweb . "yes") (:tangle . "no") (:exports . =20
"both") (:results . "replace wrap") (:colnames . "no") (:hlines . =20
"yes") (:session . "none") (:result-type . value) (:result-params =20
"replace" "wrap") (:rowname-names) (:colname-names)) "" nil 0) block)
   (concat (org-babel-exp-code info type) "\n\n" (org-babel-exp-=20
results info type))
   (cond ((member* --cl-var-- ...) (silently) (clean) "") ((member* --=20=

cl-var-- ...) (silently) (clean) (org-babel-exp-code info type)) =20
((member* --cl-var-- ...) (org-babel-exp-results info type)) ((member* =20=

--cl-var-- ...) (concat ... "\n\n" ...)))
   (let ((--cl-var-- ...)) (cond (... ... ... "") (... ... ... ...) =20
(... ...) (... ...)))
   (case (intern (or ... "code")) ((quote none) (silently) (clean) "") =20=

((quote code) (silently) (clean) (org-babel-exp-code info type)) =20
((quote results) (org-babel-exp-results info type)) ((quote both) =20
(concat ... "\n\n" ...)))
   (progn (fset (quote clean) (function* ...)) (case (intern ...) =20
(... ... ... "") (... ... ... ...) (... ...) (... ...)))
   (unwind-protect (progn (fset ... ...) (case ... ... ... ... ...)) =20
(if --cl-letf-bound-- (fset ... --cl-letf-save--) (fmakunbound ...)))
   (let* ((--cl-letf-bound-- ...) (--cl-letf-save-- ...)) (unwind-=20
protect (progn ... ...) (if --cl-letf-bound-- ... ...)))
   (letf ((... ...)) (case (intern ...) (... ... ... "") =20
(... ... ... ...) (... ...) (... ...)))
   (progn (fset (quote silently) (function* ...)) (letf (...) =20
(case ... ... ... ... ...)))
   (unwind-protect (progn (fset ... ...) (letf ... ...)) (if --cl-letf-=20=

bound-- (fset ... --cl-letf-save--) (fmakunbound ...)))
   (let* ((--cl-letf-bound-- ...) (--cl-letf-save-- ...)) (unwind-=20
protect (progn ... ...) (if --cl-letf-bound-- ... ...)))
   (letf ((... ...)) (letf (...) (case ... ... ... ... ...)))
   (letf* ((... ...) (... ...)) (case (intern ...) (... ... ... "") =20
(... ... ... ...) (... ...) (... ...)))
   (flet ((silently nil ...) (clean nil ...)) (case (intern ...) =20
(... ... ... "") (... ... ... ...) (... ...) (... ...)))
   org-babel-exp-do-export(("emacs-lisp" "#+end_src\n#+begin_src emacs-=20=

lisp :var lst=3Da-list :results list\n" ((:comments . "") (:shebang . =20=

"") (:cache . "no") (:noweb . "yes") (:tangle . "no") (:exports . =20
"both") (:results . "replace wrap") (:colnames . "no") (:hlines . =20
"yes") (:session . "none") (:result-type . value) (:result-params =20
"replace" "wrap") (:rowname-names) (:colname-names)) "" nil 0) block)
   (progn (org-babel-exp-in-export-file (setf ... ...)) (setf (nth 1 =20
info) (if ... ... ...)) (org-babel-exp-do-export info (quote block)))
   (if info (progn (org-babel-exp-in-export-file ...) (setf ... ...) =20
(org-babel-exp-do-export info ...)))
   (when info (org-babel-exp-in-export-file (setf ... ...)) (setf (nth =20=

1 info) (if ... ... ...)) (org-babel-exp-do-export info (quote block)))
   (let* ((info ...) (lang ...) (raw-params ...)) (when info (org-=20
babel-exp-in-export-file ...) (setf ... ...) (org-babel-exp-do-export =20=

info ...)))
   (save-excursion (goto-char (match-beginning 0)) (let* (... ... ...) =20=

(when info ... ... ...)))
   org-babel-exp-src-blocks(#("#+end_src\n#+begin_src emacs-lisp :var =20=

lst=3Da-list :results list" 0 8 (font-lock-fontified t fontified nil) 8 =20=

9 (font-lock-fontified t fontified nil) 9 10 (rear-nonsticky t =20
fontified nil) 10 33 (font-lock-fontified t fontified nil) 33 62 (font-=20=

lock-fontified t fontified nil)) #("emacs-lisp" 0 10 (fontified nil =20
font-lock-fontified t)) #(":results" 0 8 (fontified nil font-lock-=20
fontified t)) #("wrap" 0 4 (fontified nil font-lock-fontified t)) =20
#(":exports" 0 8 (fontified nil font-lock-fontified t)) #("both" 0 4 =20
(fontified nil font-lock-fontified t)))
   apply(org-babel-exp-src-blocks #("#+end_src\n#+begin_src emacs-=20
lisp :var lst=3Da-list :results list" 0 8 (font-lock-fontified t =20
fontified nil) 8 9 (font-lock-fontified t fontified nil) 9 10 (rear-=20
nonsticky t fontified nil) 10 33 (font-lock-fontified t fontified nil) =20=

33 62 (font-lock-fontified t fontified nil)) (#("emacs-lisp" 0 10 =20
(fontified nil font-lock-fontified t)) #(":results" 0 8 (fontified nil =20=

font-lock-fontified t)) #("wrap" 0 4 (fontified nil font-lock-=20
fontified t)) #(":exports" 0 8 (fontified nil font-lock-fontified t)) =20=

#("both" 0 4 (fontified nil font-lock-fontified t))))
   (if (memq type org-export-blocks-witheld) "" (apply func body =20
headers))
   (progn (if (memq type org-export-blocks-witheld) "" (apply func =20
body headers)))
   (unwind-protect (progn (if ... "" ...)) (set-match-data save-match-=20=

data-internal (quote evaporate)))
   (let ((save-match-data-internal ...)) (unwind-protect (progn ...) =20
(set-match-data save-match-data-internal ...)))
   (save-match-data (if (memq type org-export-blocks-witheld) =20
"" (apply func body headers)))
   (let ((replacement ...)) (when replacement (replace-match =20
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-+\\)[ 	=
]*\\=20
(.*\\)?[
\n]\\([^=00]*?\\)[
\n][ 	]*#\\+end_\\S-+.*[
\n]?" nil t) (setq indentation (length ...)) (setq type (intern ...)) =20=

(setq headers (save-match-data ...)) (setq body (match-string 4)) =20
(setq preserve-indent (or org-src-preserve-indentation ...)) (unless =20
preserve-indent (setq body ...)) (unless (memq type types) (setq =20
types ...)) (save-match-data (interblock start ...)) (when (setq =20
func ...) (let ... ...)) (setq start (match-end 0)))
   (progn (fset (quote interblock) (function* ...)) (goto-char (point-=20=

min)) (setq start (point)) (while (re-search-forward "^\\([ 	]*\\)#\\=20=

+begin_\\(\\S-+\\)[ 	]*\\(.*\\)?[
\n]\\([^=00]*?\\)[
\n][ 	]*#\\+end_\\S-+.*[
\n]?" nil t) (setq indentation ...) (setq type ...) (setq headers ...) =20=

(setq body ...) (setq preserve-indent ...) (unless preserve-=20
indent ...) (unless ... ...) (save-match-data ...) (when ... ...) =20
(setq start ...)) (interblock start (point-max)) (run-hooks (quote org-=20=

export-blocks-postblock-hook)))
   (unwind-protect (progn (fset ... ...) (goto-char ...) (setq =20
start ...) (while ... ... ... ... ... ... ... ... ... ... ...) =20
(interblock start ...) (run-hooks ...)) (if --cl-letf-bound-- =20
(fset ... --cl-letf-save--) (fmakunbound ...)))
   (let* ((--cl-letf-bound-- ...) (--cl-letf-save-- ...)) (unwind-=20
protect (progn ... ... ... ... ... ...) (if --cl-letf-bound-- ... ...)))
   (letf ((... ...)) (goto-char (point-min)) (setq start (point)) =20
(while (re-search-forward "^\\([ 	]*\\)#\\+begin_\\(\\S-+\\)[ 	=
]*\\(.*\=20
\)?[
\n]\\([^=00]*?\\)[
\n][ 	]*#\\+end_\\S-+.*[
\n]?" nil t) (setq indentation ...) (setq type ...) (setq headers ...) =20=

(setq body ...) (setq preserve-indent ...) (unless preserve-=20
indent ...) (unless ... ...) (save-match-data ...) (when ... ...) =20
(setq start ...)) (interblock start (point-max)) (run-hooks (quote org-=20=

export-blocks-postblock-hook)))
   (letf* ((... ...)) (goto-char (point-min)) (setq start (point)) =20
(while (re-search-forward "^\\([ 	]*\\)#\\+begin_\\(\\S-+\\)[ 	=
]*\\(.*\=20
\)?[
\n]\\([^=00]*?\\)[
\n][ 	]*#\\+end_\\S-+.*[
\n]?" nil t) (setq indentation ...) (setq type ...) (setq headers ...) =20=

(setq body ...) (setq preserve-indent ...) (unless preserve-=20
indent ...) (unless ... ...) (save-match-data ...) (when ... ...) =20
(setq start ...)) (interblock start (point-max)) (run-hooks (quote org-=20=

export-blocks-postblock-hook)))
   (flet ((interblock ... ...)) (goto-char (point-min)) (setq start =20
(point)) (while (re-search-forward "^\\([ 	=
]*\\)#\\+begin_\\(\\S-+\\)=20
[ 	]*\\(.*\\)?[
\n]\\([^=00]*?\\)[
\n][ 	]*#\\+end_\\S-+.*[
\n]?" nil t) (setq indentation ...) (setq type ...) (setq headers ...) =20=

(setq body ...) (setq preserve-indent ...) (unless preserve-=20
indent ...) (unless ... ...) (save-match-data ...) (when ... ...) =20
(setq start ...)) (interblock start (point-max)) (run-hooks (quote org-=20=

export-blocks-postblock-hook)))
   (let ((case-fold-search t) (types ...) indentation type func start =20=

body headers preserve-indent progress-marker) (flet (...) (goto-=20
char ...) (setq start ...) =20
(while ... ... ... ... ... ... ... ... ... ... ...) (interblock =20
start ...) (run-hooks ...)))
   (save-window-excursion (let (... ... indentation type func start =20
body headers preserve-indent progress-marker) =20
(flet ... ... ... ... ... ...)))
   org-export-blocks-preprocess()
   (save-current-buffer (set-buffer (get-buffer-create " org-mode-=20
tmp")) (erase-buffer) (insert string) (setq case-fold-search t) (let =20
(...) (remove-text-properties ... ... ...)) (org-export-kill-licensed-=20=

text) (let (...) (org-mode)) (setq case-fold-search t) (org-install-=20
letbind) (run-hooks (quote org-export-preprocess-hook)) (org-export-=20
preprocess-apply-macros) (run-hooks (quote org-export-preprocess-after-=20=

macros-hook)) (untabify (point-min) (point-max)) (org-export-handle-=20
include-files-recurse) (run-hooks (quote org-export-preprocess-after-=20
include-files-hook)) (org-export-remove-archived-trees archived-trees) =20=

(org-export-remove-comment-blocks-and-subtrees) (org-export-handle-=20
export-tags (plist-get parameters :select-tags) (plist-get =20
parameters :exclude-tags)) (run-hooks (quote org-export-preprocess-=20
after-tree-selection-hook)) (org-export-mark-list-ending backend) (org-=20=

export-blocks-preprocess) (org-export-replace-src-segments-and-=20
examples backend) (org-export-protect-colon-examples) (org-export-=20
convert-protected-spaces backend) (when (plist-get =20
parameters :footnotes) (org-footnote-normalize nil t)) (setq target-=20
alist (org-export-define-heading-targets target-alist)) (run-hooks =20
(quote org-export-preprocess-after-headline-targets-hook)) (org-export-=20=

remember-html-container-classes) (org-export-remove-or-extract-drawers =20=

drawers (plist-get parameters :drawers) backend) (when (plist-get =20
parameters :skip-before-1st-heading) (goto-char ...) =20
(when ... ... ... ...)) (when (plist-get parameters :add-text) (goto-=20
char ...) (insert ... "\n")) (org-export-remove-headline-metadata =20
parameters) (setq target-alist (org-export-handle-invisible-targets =20
target-alist)) (run-hooks (quote org-export-preprocess-before-=20
selecting-backend-code-hook)) (org-export-select-backend-specific-text =20=

backend) (org-export-protect-quoted-subtrees) (org-export-remove-clock-=20=

lines) (org-export-protect-verbatim) (org-export-mark-blockquote-verse-=20=

center) (run-hooks (quote org-export-preprocess-after-blockquote-=20
hook)) (unless (plist-get parameters :timestamps) (org-export-remove-=20
timestamps)) (setq target-alist (org-export-attach-captions-and-=20
attributes backend target-alist)) (org-export-mark-radio-links) (run-=20
hooks (quote org-export-preprocess-after-radio-targets-hook)) (org-=20
export-concatenate-multiline-links) (run-hooks (quote org-export-=20
preprocess-before-normalizing-links-hook)) (org-export-normalize-=20
links) (org-export-target-internal-links target-alist) (when (plist-=20
get parameters :emph-multiline) (org-export-concatenate-multiline-=20
emphasis)) ...)
   (with-current-buffer (get-buffer-create " org-mode-tmp") (erase-=20
buffer) (insert string) (setq case-fold-search t) (let (...) (remove-=20
text-properties ... ... ...)) (org-export-kill-licensed-text) (let =20
(...) (org-mode)) (setq case-fold-search t) (org-install-letbind) (run-=20=

hooks (quote org-export-preprocess-hook)) (org-export-preprocess-apply-=20=

macros) (run-hooks (quote org-export-preprocess-after-macros-hook)) =20
(untabify (point-min) (point-max)) (org-export-handle-include-files-=20
recurse) (run-hooks (quote org-export-preprocess-after-include-files-=20
hook)) (org-export-remove-archived-trees archived-trees) (org-export-=20
remove-comment-blocks-and-subtrees) (org-export-handle-export-tags =20
(plist-get parameters :select-tags) (plist-get parameters :exclude-=20
tags)) (run-hooks (quote org-export-preprocess-after-tree-selection-=20
hook)) (org-export-mark-list-ending backend) (org-export-blocks-=20
preprocess) (org-export-replace-src-segments-and-examples backend) =20
(org-export-protect-colon-examples) (org-export-convert-protected-=20
spaces backend) (when (plist-get parameters :footnotes) (org-footnote-=20=

normalize nil t)) (setq target-alist (org-export-define-heading-=20
targets target-alist)) (run-hooks (quote org-export-preprocess-after-=20
headline-targets-hook)) (org-export-remember-html-container-classes) =20
(org-export-remove-or-extract-drawers drawers (plist-get =20
parameters :drawers) backend) (when (plist-get parameters :skip-=20
before-1st-heading) (goto-char ...) (when ... ... ... ...)) (when =20
(plist-get parameters :add-text) (goto-char ...) (insert ... "\n")) =20
(org-export-remove-headline-metadata parameters) (setq target-alist =20
(org-export-handle-invisible-targets target-alist)) (run-hooks (quote =20=

org-export-preprocess-before-selecting-backend-code-hook)) (org-export-=20=

select-backend-specific-text backend) (org-export-protect-quoted-=20
subtrees) (org-export-remove-clock-lines) (org-export-protect-=20
verbatim) (org-export-mark-blockquote-verse-center) (run-hooks (quote =20=

org-export-preprocess-after-blockquote-hook)) (unless (plist-get =20
parameters :timestamps) (org-export-remove-timestamps)) (setq target-=20
alist (org-export-attach-captions-and-attributes backend target-=20
alist)) (org-export-mark-radio-links) (run-hooks (quote org-export-=20
preprocess-after-radio-targets-hook)) (org-export-concatenate-=20
multiline-links) (run-hooks (quote org-export-preprocess-before-=20
normalizing-links-hook)) (org-export-normalize-links) (org-export-=20
target-internal-links target-alist) (when (plist-get parameters :emph-=20=

multiline) (org-export-concatenate-multiline-emphasis)) ...)
   (let* ((htmlp ...) (asciip ...) (latexp ...) (docbookp ...) =20
(backend ...) (archived-trees ...) (inhibit-read-only t) (drawers org-=20=

drawers) (outline-regexp "\\*+ ") target-alist rtn) (setq org-export-=20
target-aliases nil org-export-preferred-target-alist nil org-export-id-=20=

target-alist nil org-export-code-refs nil) (with-current-buffer (get-=20
buffer-create " org-mode-tmp") (erase-buffer) (insert string) (setq =20
case-fold-search t) (let ... ...) (org-export-kill-licensed-text) =20
(let ... ...) (setq case-fold-search t) (org-install-letbind) (run-=20
hooks ...) (org-export-preprocess-apply-macros) (run-hooks ...) =20
(untabify ... ...) (org-export-handle-include-files-recurse) (run-=20
hooks ...) (org-export-remove-archived-trees archived-trees) (org-=20
export-remove-comment-blocks-and-subtrees) (org-export-handle-export-=20
tags ... ...) (run-hooks ...) (org-export-mark-list-ending backend) =20
(org-export-blocks-preprocess) (org-export-replace-src-segments-and-=20
examples backend) (org-export-protect-colon-examples) (org-export-=20
convert-protected-spaces backend) (when ... ...) (setq target-=20
alist ...) (run-hooks ...) (org-export-remember-html-container-=20
classes) (org-export-remove-or-extract-drawers drawers ... backend) =20
(when ... ... ...) (when ... ... ...) (org-export-remove-headline-=20
metadata parameters) (setq target-alist ...) (run-hooks ...) (org-=20
export-select-backend-specific-text backend) (org-export-protect-=20
quoted-subtrees) (org-export-remove-clock-lines) (org-export-protect-=20
verbatim) (org-export-mark-blockquote-verse-center) (run-hooks ...) =20
(unless ... ...) (setq target-alist ...) (org-export-mark-radio-links) =20=

(run-hooks ...) (org-export-concatenate-multiline-links) (run-=20
hooks ...) (org-export-normalize-links) (org-export-target-internal-=20
links target-alist) (when ... ...) ...) (kill-buffer " org-mode-tmp") =20=

rtn)
   org-export-preprocess-string(#("* Export problem\n\n#+begin_src =20
emacs-lisp :results wrap :exports both\n   \"code block results\"\n#=20
+end_src\n\n#+begin_src emacs-lisp :var lst=3Da-list :results list\n   =20=

(reverse lst)\n#+end_src\n\n" 0 2 (fontified nil :org-license-to-kill =20=

t) 2 16 (fontified nil :org-license-to-kill t) 16 17 (fontified =20
nil :org-license-to-kill t) 17 18 (fontified nil :org-license-to-kill =20=

t) 18 68 (font-lock-fontified t fontified nil) 68 69 (font-lock-=20
fontified t fontified nil) 69 72 (font-lock-fontified t fontified =20
nil :org-license-to-kill t) 72 73 (font-lock-fontified t fontified =20
nil :org-license-to-kill t) 73 92 (font-lock-fontified t fontified =20
nil :org-license-to-kill t) 92 93 (font-lock-fontified t fontified =20
nil :org-license-to-kill t) 93 101 (font-lock-fontified t fontified =20
nil) 101 102 (font-lock-fontified t fontified nil) 102 103 (rear-=20
nonsticky t fontified nil) 103 104 (fontified nil :org-license-to-kill =20=

t) 104 127 (font-lock-fontified t fontified nil) 127 156 (font-lock-=20
fontified t fontified nil) 156 157 (font-lock-fontified t fontified =20
nil) 157 160 (font-lock-fontified t fontified nil :org-license-to-kill =20=

t) 160 161 (font-lock-fontified t fontified nil :org-license-to-kill =20
t) 161 162 (font-lock-fontified t fontified nil :org-license-to-kill =20
t) 162 172 (font-lock-fontified t fontified nil :org-license-to-kill =20
t) 172 173 (rear-nonsticky t font-lock-fontified t fontified nil :org-=20=

license-to-kill t) 173 174 (font-lock-fontified t fontified nil :org-=20
license-to-kill t) 174 182 (font-lock-fontified t fontified nil) 182 =20
183 (font-lock-fontified t fontified nil) 183 184 (rear-nonsticky t =20
fontified nil) 184 185 (fontified nil)) :emph-multiline t :for-LaTeX =20
t :comments nil :tags not-in-toc :priority nil :footnotes t :drawers =20
nil :timestamps t :todo-keywords t :add-text nil :skip-before-1st-=20
heading nil :select-tags ("export") :exclude-tags ("noexport") :LaTeX-=20=

fragments nil)
   (let* ((wcf ...) (opt-plist org-export-latex-options-plist) (region-=20=

p ...) (rbeg ...) (rend ...) (subtree-p ...) (opt-plist ...) (org-=20
export-latex-options-plist ...) (org-current-export-dir ...) (org-=20
current-export-file buffer-file-name) (title ...) (filename ...) =20
(filename ...) (buffer ...) (odd org-odd-levels-only) (header ...) =20
(skip ...) (text ...) (org-export-preprocess-hook ...) (first-=20
lines ...) (coding-system ...) (coding-system-for-write ...) (save-=20
buffer-coding-system ...) (region ...) (text ...) (string-for-=20
export ...)) (set-buffer buffer) (erase-buffer) (org-install-letbind) =20=

(and (fboundp ...) (set-buffer-file-coding-system coding-system-for-=20
write)) (unless (or ... body-only) (insert header)) (when (and =20
text ...) (insert ... "\n\n")) (unless skip (insert first-lines)) (org-=20=

export-latex-global (with-temp-buffer ... ... ...)) (unless body-only =20=

(insert "\n\\end{document}")) (goto-char (point-min)) (while (re-=20
search-forward "^[ 	]*\\\\item\\([ 	]+\\)\\[" nil t) (delete-=20
region ... ...)) (goto-char (point-min)) (when (re-search-forward "\\=20
[TABLE-OF-CONTENTS\\]" nil t) (goto-char ...) (while ... ...) (goto-=20
char ...) (and ... ...)) (goto-char (point-min)) (while (re-search-=20
forward "^[ 	]*\\\\item\\>.*\\(\\\\\\\\\\)[ 	=
]*\\(\n\\\\label.*\\)*\n\\=20
\\begin" nil t) (delete-region ... ...)) (goto-char (point-min)) =20
(while (re-search-forward "^[ 	]*\\\\item\\>.*\\(\\\\\\\\\\)[ 	]*\\(\n\=20=

\\\label.*\\)*" nil t) (if ... ...)) (run-hooks (quote org-export-=20
latex-final-hook)) (if to-buffer (unless ... ...) (save-buffer)) (org-=20=

export-latex-fix-inputenc) (run-hooks (quote org-export-latex-after-=20
save-hook)) (goto-char (point-min)) (or (org-export-push-to-kill-ring =20=

"LaTeX") (message "Exporting to LaTeX...done")) (prog1 =20
(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-=20
process-sentinel p ...) (message "Background process \"%s\": started" =20=

p)) (if subtree-p (progn ... ...)) (call-interactively (nth 1 ass)) =20
(when (and bpos ...) (let ... ... ... ... ...)))
   (let* ((bg ...) subtree-p (help "[t]   insert the export option =20
template\n[v]   limit export to visible part of outline tree\n[1]   =20
only export the current subtree\n[SPC] publish enclosing subtree (with =20=

LaTeX_CLASS or EXPORT_FILE_NAME prop)\n\n[a/n/u] export as ASCII/=20
Latin-1/UTF-8         [A/N/U] to temporary buffer\n\n[h] export as =20
HTML      [H] to temporary buffer   [R] export region\n[b] export as =20
HTML and open in browser\n\n[l] export as LaTeX     [L] to temporary =20
buffer\n[p] export as LaTeX and process to PDF            [d] ... and =20=

open PDF file\n\n[D] export as DocBook   [V] export as DocBook, =20
process to PDF, and open\n\n[j] export as =20
TaskJuggler                         [J] ... and open\n\n[m] export as =20=

Freemind mind map\n[x] export as XOXO\n[g] export using Wes Hardaker's =20=

generic exporter\n\n[i] export current file as iCalendar file\n[I] =20
export all agenda files as iCalendar files   [c] ...as one combined =20
file\n\n[F] publish current file          [P] publish current project=20
\n[X] publish a project...          [E] publish every projects") =20
(cmds ...) r1 r2 ass (cpos ...) (cbuf ...) bpos) (save-excursion (save-=20=

window-excursion ... ... ... ... ... ... ...)) (and bpos (goto-char =20
bpos)) (setq r2 (if ... ... r1)) (unless (setq ass ...) (error "No =20
command associated with key %c" r1)) (if (and bg ... ... ...) =20
(let ... ... ...) (if subtree-p ...) (call-interactively ...) =20
(when ... ...)))
   org-export(nil)
   call-interactively(org-export nil nil)