From mboxrd@z Thu Jan 1 00:00:00 1970 From: "Sebastien Vauban" Subject: [bug] Details of compling and running C++ code from Org-mode? Date: Sat, 19 Nov 2011 00:07:48 +0100 Message-ID: <80bos981x7.fsf_-_@somewhere.org> References: <1320479064.94834.YahooMailNeo@web161908.mail.bf1.yahoo.com> <87vcqhgqu3.fsf@gmail.com> Mime-Version: 1.0 Content-Type: text/plain Content-Transfer-Encoding: quoted-printable Return-path: List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org-mXXj517/zsQ@public.gmane.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org-mXXj517/zsQ@public.gmane.org To: emacs-orgmode-mXXj517/zsQ@public.gmane.org Hi Eric, Eric Schulte wrote: > Michael Hannon writes: > I've placed an annotated copy of the relevant code up at [1] which > should explain the evaluation process for c/c++ code. In many cases > browsing the relevant org-babel-execute:* function for your language is > the best way to discover what flags are available. > > Footnotes:=20 > [1] http://cs.unm.edu/~eschulte/data/babel-c-execution.html > http://cs.unm.edu/~eschulte/data/babel-c-execution.org Trying to export your Org file to LaTeX results in this: #+begin_src emacs-lisp Debugger entered--Lisp error: (error "unbalanced begin/end_src blocks with = #(\"#+begin_src emacs-lisp -n -l \\\"ref:%s\\\" \" 0 7 (fontified nil font-lock-fontified t) 7 11 (fontified nil font-lock-= fontified t) 11 37 (fontified nil font-lock-fontified t) 37 38 (fontified n= il font-lock-fontified t))") signal(error ("unbalanced begin/end_src blocks with #(\"#+begin_src emacs= -lisp -n -l \\\"ref:%s\\\"\n\" 0 7 (fontified nil font-lock-fontified t) 7 = 11 (fontified nil font-lock-fontified t) 11 37 (fontified nil font-lock-fon= tified t) 37 38 (fontified nil font-lock-fontified t))")) error("unbalanced begin/end_%s blocks with %S" src #("#+begin_src emacs-l= isp -n -l \"ref:%s\"\n" 0 7 (fontified nil font-lock-fontified t) 7 11 (fon= tified nil font-lock-fontified t) 11 37 (fontified nil font-lock-fontified = t) 37 38 (fontified nil font-lock-fontified t))) (progn (error "unbalanced begin/end_%s blocks with %S" type (buffer-subst= ring match-start (point)))) (if (not (zerop balanced)) (progn (error "unbalanced begin/end_%s blocks = with %S" type (buffer-substring match-start (point))))) (when (not (zerop balanced)) (error "unbalanced begin/end_%s blocks with = %S" type (buffer-substring match-start (point)))) (let* ((match-start (copy-marker (match-beginning 0))) (body-start (copy-= marker (match-end 0))) (indentation (length (match-string 1))) (inner-re (f= ormat "[\n][ ]*#\\+\\(begin\\|end\\)_%s" (regexp-quote (downcase (match-st= ring 2))))) (type (intern (downcase (match-string 2)))) (headers (save-matc= h-data (org-split-string (match-string 3) "[ ]+"))) (balanced 1) (preserve= -indent (or org-src-preserve-indentation (member "-i" headers))) match-end)= (while (and (not (zerop balanced)) (re-search-forward inner-re nil t)) (if= (string=3D (downcase (match-string 1)) "end") (decf balanced) (incf balanc= ed))) (when (not (zerop balanced)) (error "unbalanced begin/end_%s blocks w= ith %S" type (buffer-substring match-start (point)))) (setq match-end (copy= -marker (match-end 0))) (unless preserve-indent (setq body (save-match-data= (org-remove-indentation (buffer-substring body-start (match-beginning 0)))= ))) (unless (memq type types) (setq types (cons type types))) (save-match-d= ata (interblock start match-start)) (when (setq func (cadr (assoc type org-= export-blocks))) (let ((replacement (save-match-data (if (memq type org-exp= ort-blocks-witheld) "" (apply func body headers))))) (when replacement (del= ete-region match-start match-end) (goto-char match-start) (insert replaceme= nt) (unless preserve-indent (indent-code-rigidly match-start (point) indent= ation))))) (set-marker match-start nil) (set-marker body-start nil) (set-ma= rker match-end nil)) (while (re-search-forward beg-re nil t) (let* ((match-start (copy-marker = (match-beginning 0))) (body-start (copy-marker (match-end 0))) (indentation= (length (match-string 1))) (inner-re (format "[\n][ ]*#\\+\\(begin\\|end\= \)_%s" (regexp-quote (downcase (match-string 2))))) (type (intern (downcase= (match-string 2)))) (headers (save-match-data (org-split-string (match-str= ing 3) "[ ]+"))) (balanced 1) (preserve-indent (or org-src-preserve-indent= ation (member "-i" headers))) match-end) (while (and (not (zerop balanced))= (re-search-forward inner-re nil t)) (if (string=3D (downcase (match-string= 1)) "end") (decf balanced) (incf balanced))) (when (not (zerop balanced)) = (error "unbalanced begin/end_%s blocks with %S" type (buffer-substring matc= h-start (point)))) (setq match-end (copy-marker (match-end 0))) (unless pre= serve-indent (setq body (save-match-data (org-remove-indentation (buffer-su= bstring body-start (match-beginning 0)))))) (unless (memq type types) (setq= types (cons type types))) (save-match-data (interblock start match-start))= (when (setq func (cadr (assoc type org-export-blocks))) (let ((replacement= (save-match-data (if ... "" ...)))) (when replacement (delete-region match= -start match-end) (goto-char match-start) (insert replacement) (unless pres= erve-indent (indent-code-rigidly match-start (point) indentation))))) (set-= marker match-start nil) (set-marker body-start nil) (set-marker match-end n= il)) (setq start (point))) (let ((beg-re "^\\([ ]*\\)#\\+begin_\\(\\S-+\\)[ ]*\\(.*\\)?[\n]")) (wh= ile (re-search-forward beg-re nil t) (let* ((match-start (copy-marker (matc= h-beginning 0))) (body-start (copy-marker (match-end 0))) (indentation (len= gth (match-string 1))) (inner-re (format "[\n][ ]*#\\+\\(begin\\|end\\)_%s= " (regexp-quote (downcase ...)))) (type (intern (downcase (match-string 2))= )) (headers (save-match-data (org-split-string (match-string 3) "[ ]+"))) = (balanced 1) (preserve-indent (or org-src-preserve-indentation (member "-i"= headers))) match-end) (while (and (not (zerop balanced)) (re-search-forwar= d inner-re nil t)) (if (string=3D (downcase (match-string 1)) "end") (decf = balanced) (incf balanced))) (when (not (zerop balanced)) (error "unbalanced= begin/end_%s blocks with %S" type (buffer-substring match-start (point))))= (setq match-end (copy-marker (match-end 0))) (unless preserve-indent (setq= body (save-match-data (org-remove-indentation (buffer-substring body-start= ...))))) (unless (memq type types) (setq types (cons type types))) (save-m= atch-data (interblock start match-start)) (when (setq func (cadr (assoc typ= e org-export-blocks))) (let ((replacement (save-match-data ...))) (when rep= lacement (delete-region match-start match-end) (goto-char match-start) (ins= ert replacement) (unless preserve-indent (indent-code-rigidly match-start .= .. indentation))))) (set-marker match-start nil) (set-marker body-start nil= ) (set-marker match-end nil)) (setq start (point)))) (progn (fset (quote interblock) (function* (lambda (start end) (block int= erblock (mapcar (lambda (pair) (funcall ... start end)) org-export-interblo= cks))))) (goto-char (point-min)) (setq start (point)) (let ((beg-re "^\\([ = ]*\\)#\\+begin_\\(\\S-+\\)[ ]*\\(.*\\)?[\n]")) (while (re-search-forward = beg-re nil t) (let* ((match-start (copy-marker (match-beginning 0))) (body-= start (copy-marker (match-end 0))) (indentation (length (match-string 1))) = (inner-re (format "[\n][ ]*#\\+\\(begin\\|end\\)_%s" (regexp-quote ...))) = (type (intern (downcase ...))) (headers (save-match-data (org-split-string = ... "[ ]+"))) (balanced 1) (preserve-indent (or org-src-preserve-indentati= on (member "-i" headers))) match-end) (while (and (not (zerop balanced)) (r= e-search-forward inner-re nil t)) (if (string=3D (downcase ...) "end") (dec= f balanced) (incf balanced))) (when (not (zerop balanced)) (error "unbalanc= ed begin/end_%s blocks with %S" type (buffer-substring match-start (point))= )) (setq match-end (copy-marker (match-end 0))) (unless preserve-indent (se= tq body (save-match-data (org-remove-indentation ...)))) (unless (memq type= types) (setq types (cons type types))) (save-match-data (interblock start = match-start)) (when (setq func (cadr (assoc type org-export-blocks))) (let = ((replacement ...)) (when replacement (delete-region match-start match-end)= (goto-char match-start) (insert replacement) (unless preserve-indent ...))= )) (set-marker match-start nil) (set-marker body-start nil) (set-marker mat= ch-end nil)) (setq start (point)))) (interblock start (point-max)) (run-hoo= ks (quote org-export-blocks-postblock-hook))) (unwind-protect (progn (fset (quote interblock) (function* (lambda (start= end) (block interblock (mapcar (lambda ... ...) org-export-interblocks))))= ) (goto-char (point-min)) (setq start (point)) (let ((beg-re "^\\([ ]*\\)#= \\+begin_\\(\\S-+\\)[ ]*\\(.*\\)?[\n]")) (while (re-search-forward beg-re = nil t) (let* ((match-start (copy-marker ...)) (body-start (copy-marker ...)= ) (indentation (length ...)) (inner-re (format "[\n][ ]*#\\+\\(begin\\|end= \\)_%s" ...)) (type (intern ...)) (headers (save-match-data ...)) (balanced= 1) (preserve-indent (or org-src-preserve-indentation ...)) match-end) (whi= le (and (not ...) (re-search-forward inner-re nil t)) (if (string=3D ... "e= nd") (decf balanced) (incf balanced))) (when (not (zerop balanced)) (error = "unbalanced begin/end_%s blocks with %S" type (buffer-substring match-start= ...))) (setq match-end (copy-marker (match-end 0))) (unless preserve-inden= t (setq body (save-match-data ...))) (unless (memq type types) (setq types = (cons type types))) (save-match-data (interblock start match-start)) (when = (setq func (cadr ...)) (let (...) (when replacement ... ... ... ...))) (set= -marker match-start nil) (set-marker body-start nil) (set-marker match-end = nil)) (setq start (point)))) (interblock start (point-max)) (run-hooks (quo= te org-export-blocks-postblock-hook))) (if --cl-letf-bound-- (fset (quote i= nterblock) --cl-letf-save--) (fmakunbound (quote interblock)))) (let* ((--cl-letf-bound-- (fboundp (quote interblock))) (--cl-letf-save--= (and --cl-letf-bound-- (symbol-function (quote interblock))))) (unwind-pro= tect (progn (fset (quote interblock) (function* (lambda (start end) (block = interblock (mapcar ... org-export-interblocks))))) (goto-char (point-min)) = (setq start (point)) (let ((beg-re "^\\([ ]*\\)#\\+begin_\\(\\S-+\\)[ ]*\= \(.*\\)?[\n]")) (while (re-search-forward beg-re nil t) (let* ((match-start= ...) (body-start ...) (indentation ...) (inner-re ...) (type ...) (headers= ...) (balanced 1) (preserve-indent ...) match-end) (while (and ... ...) (i= f ... ... ...)) (when (not ...) (error "unbalanced begin/end_%s blocks with= %S" type ...)) (setq match-end (copy-marker ...)) (unless preserve-indent = (setq body ...)) (unless (memq type types) (setq types ...)) (save-match-da= ta (interblock start match-start)) (when (setq func ...) (let ... ...)) (se= t-marker match-start nil) (set-marker body-start nil) (set-marker match-end= nil)) (setq start (point)))) (interblock start (point-max)) (run-hooks (qu= ote org-export-blocks-postblock-hook))) (if --cl-letf-bound-- (fset (quote = interblock) --cl-letf-save--) (fmakunbound (quote interblock))))) (letf (((symbol-function (quote interblock)) (function* (lambda (start en= d) (block interblock (mapcar (lambda ... ...) org-export-interblocks)))))) = (goto-char (point-min)) (setq start (point)) (let ((beg-re "^\\([ ]*\\)#\\= +begin_\\(\\S-+\\)[ ]*\\(.*\\)?[\n]")) (while (re-search-forward beg-re ni= l t) (let* ((match-start (copy-marker (match-beginning 0))) (body-start (co= py-marker (match-end 0))) (indentation (length (match-string 1))) (inner-re= (format "[\n][ ]*#\\+\\(begin\\|end\\)_%s" (regexp-quote ...))) (type (in= tern (downcase ...))) (headers (save-match-data (org-split-string ... "[ ]= +"))) (balanced 1) (preserve-indent (or org-src-preserve-indentation (membe= r "-i" headers))) match-end) (while (and (not (zerop balanced)) (re-search-= forward inner-re nil t)) (if (string=3D (downcase ...) "end") (decf balance= d) (incf balanced))) (when (not (zerop balanced)) (error "unbalanced begin/= end_%s blocks with %S" type (buffer-substring match-start (point)))) (setq = match-end (copy-marker (match-end 0))) (unless preserve-indent (setq body (= save-match-data (org-remove-indentation ...)))) (unless (memq type types) (= setq types (cons type types))) (save-match-data (interblock start match-sta= rt)) (when (setq func (cadr (assoc type org-export-blocks))) (let ((replace= ment ...)) (when replacement (delete-region match-start match-end) (goto-ch= ar match-start) (insert replacement) (unless preserve-indent ...)))) (set-m= arker match-start nil) (set-marker body-start nil) (set-marker match-end ni= l)) (setq start (point)))) (interblock start (point-max)) (run-hooks (quote= org-export-blocks-postblock-hook))) (letf* (((symbol-function (quote interblock)) (function* (lambda (start e= nd) (block interblock (mapcar (lambda ... ...) org-export-interblocks))))))= (goto-char (point-min)) (setq start (point)) (let ((beg-re "^\\([ ]*\\)#\= \+begin_\\(\\S-+\\)[ ]*\\(.*\\)?[\n]")) (while (re-search-forward beg-re n= il t) (let* ((match-start (copy-marker (match-beginning 0))) (body-start (c= opy-marker (match-end 0))) (indentation (length (match-string 1))) (inner-r= e (format "[\n][ ]*#\\+\\(begin\\|end\\)_%s" (regexp-quote ...))) (type (i= ntern (downcase ...))) (headers (save-match-data (org-split-string ... "[ = ]+"))) (balanced 1) (preserve-indent (or org-src-preserve-indentation (memb= er "-i" headers))) match-end) (while (and (not (zerop balanced)) (re-search= -forward inner-re nil t)) (if (string=3D (downcase ...) "end") (decf balanc= ed) (incf balanced))) (when (not (zerop balanced)) (error "unbalanced begin= /end_%s blocks with %S" type (buffer-substring match-start (point)))) (setq= match-end (copy-marker (match-end 0))) (unless preserve-indent (setq body = (save-match-data (org-remove-indentation ...)))) (unless (memq type types) = (setq types (cons type types))) (save-match-data (interblock start match-st= art)) (when (setq func (cadr (assoc type org-export-blocks))) (let ((replac= ement ...)) (when replacement (delete-region match-start match-end) (goto-c= har match-start) (insert replacement) (unless preserve-indent ...)))) (set-= marker match-start nil) (set-marker body-start nil) (set-marker match-end n= il)) (setq start (point)))) (interblock start (point-max)) (run-hooks (quot= e org-export-blocks-postblock-hook))) (flet ((interblock (start end) (mapcar (lambda (pair) (funcall (second pa= ir) start end)) org-export-interblocks))) (goto-char (point-min)) (setq sta= rt (point)) (let ((beg-re "^\\([ ]*\\)#\\+begin_\\(\\S-+\\)[ ]*\\(.*\\)?[= \n]")) (while (re-search-forward beg-re nil t) (let* ((match-start (copy-ma= rker (match-beginning 0))) (body-start (copy-marker (match-end 0))) (indent= ation (length (match-string 1))) (inner-re (format "[\n][ ]*#\\+\\(begin\\= |end\\)_%s" (regexp-quote ...))) (type (intern (downcase ...))) (headers (s= ave-match-data (org-split-string ... "[ ]+"))) (balanced 1) (preserve-inde= nt (or org-src-preserve-indentation (member "-i" headers))) match-end) (whi= le (and (not (zerop balanced)) (re-search-forward inner-re nil t)) (if (str= ing=3D (downcase ...) "end") (decf balanced) (incf balanced))) (when (not (= zerop balanced)) (error "unbalanced begin/end_%s blocks with %S" type (buff= er-substring match-start (point)))) (setq match-end (copy-marker (match-end= 0))) (unless preserve-indent (setq body (save-match-data (org-remove-inden= tation ...)))) (unless (memq type types) (setq types (cons type types))) (s= ave-match-data (interblock start match-start)) (when (setq func (cadr (asso= c type org-export-blocks))) (let ((replacement ...)) (when replacement (del= ete-region match-start match-end) (goto-char match-start) (insert replaceme= nt) (unless preserve-indent ...)))) (set-marker match-start nil) (set-marke= r body-start nil) (set-marker match-end nil)) (setq start (point)))) (inter= block start (point-max)) (run-hooks (quote org-export-blocks-postblock-hook= ))) (let ((case-fold-search t) (types (quote nil)) matched indentation type f= unc start end body headers preserve-indent progress-marker) (flet ((interbl= ock (start end) (mapcar (lambda (pair) (funcall (second pair) start end)) o= rg-export-interblocks))) (goto-char (point-min)) (setq start (point)) (let = ((beg-re "^\\([ ]*\\)#\\+begin_\\(\\S-+\\)[ ]*\\(.*\\)?[\n]")) (while (re= -search-forward beg-re nil t) (let* ((match-start (copy-marker ...)) (body-= start (copy-marker ...)) (indentation (length ...)) (inner-re (format "[\n]= [ ]*#\\+\\(begin\\|end\\)_%s" ...)) (type (intern ...)) (headers (save-mat= ch-data ...)) (balanced 1) (preserve-indent (or org-src-preserve-indentatio= n ...)) match-end) (while (and (not ...) (re-search-forward inner-re nil t)= ) (if (string=3D ... "end") (decf balanced) (incf balanced))) (when (not (z= erop balanced)) (error "unbalanced begin/end_%s blocks with %S" type (buffe= r-substring match-start ...))) (setq match-end (copy-marker (match-end 0)))= (unless preserve-indent (setq body (save-match-data ...))) (unless (memq t= ype types) (setq types (cons type types))) (save-match-data (interblock sta= rt match-start)) (when (setq func (cadr ...)) (let (...) (when replacement = ... ... ... ...))) (set-marker match-start nil) (set-marker body-start nil)= (set-marker match-end nil)) (setq start (point)))) (interblock start (poin= t-max)) (run-hooks (quote org-export-blocks-postblock-hook)))) (progn (let ((case-fold-search t) (types (quote nil)) matched indentation= type func start end body headers preserve-indent progress-marker) (flet ((= interblock (start end) (mapcar (lambda (pair) (funcall ... start end)) org-= export-interblocks))) (goto-char (point-min)) (setq start (point)) (let ((b= eg-re "^\\([ ]*\\)#\\+begin_\\(\\S-+\\)[ ]*\\(.*\\)?[\n]")) (while (re-se= arch-forward beg-re nil t) (let* ((match-start ...) (body-start ...) (inden= tation ...) (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-e= nd (copy-marker ...)) (unless preserve-indent (setq body ...)) (unless (mem= q type types) (setq types ...)) (save-match-data (interblock start match-st= art)) (when (setq func ...) (let ... ...)) (set-marker match-start nil) (se= t-marker body-start nil) (set-marker match-end nil)) (setq start (point))))= (interblock start (point-max)) (run-hooks (quote org-export-blocks-postblo= ck-hook))))) (unwind-protect (progn (let ((case-fold-search t) (types (quote nil)) mat= ched indentation type func start end body headers preserve-indent progress-= marker) (flet ((interblock (start end) (mapcar (lambda ... ...) org-export-= interblocks))) (goto-char (point-min)) (setq start (point)) (let ((beg-re "= ^\\([ ]*\\)#\\+begin_\\(\\S-+\\)[ ]*\\(.*\\)?[\n]")) (while (re-search-fo= rward beg-re nil t) (let* (... ... ... ... ... ... ... ... match-end) (whil= e ... ...) (when ... ...) (setq match-end ...) (unless preserve-indent ...)= (unless ... ...) (save-match-data ...) (when ... ...) (set-marker match-st= art nil) (set-marker body-start nil) (set-marker match-end nil)) (setq star= t (point)))) (interblock start (point-max)) (run-hooks (quote org-export-bl= ocks-postblock-hook))))) (set-window-configuration wconfig)) (let ((wconfig (current-window-configuration))) (unwind-protect (progn (l= et ((case-fold-search t) (types (quote nil)) matched indentation type func = start end body headers preserve-indent progress-marker) (flet ((interblock = (start end) (mapcar ... org-export-interblocks))) (goto-char (point-min)) (= setq start (point)) (let ((beg-re "^\\([ ]*\\)#\\+begin_\\(\\S-+\\)[ ]*\\= (.*\\)?[\n]")) (while (re-search-forward beg-re nil t) (let* ... ... ... ..= . ... ... ... ... ... ... ...) (setq start ...))) (interblock start (point-= max)) (run-hooks (quote org-export-blocks-postblock-hook))))) (set-window-c= onfiguration wconfig))) (save-window-excursion (let ((case-fold-search t) (types (quote nil)) mat= ched indentation type func start end body headers preserve-indent progress-= marker) (flet ((interblock (start end) (mapcar (lambda (pair) (funcall ... = start end)) org-export-interblocks))) (goto-char (point-min)) (setq start (= point)) (let ((beg-re "^\\([ ]*\\)#\\+begin_\\(\\S-+\\)[ ]*\\(.*\\)?[\n]"= )) (while (re-search-forward beg-re nil t) (let* ((match-start ...) (body-s= tart ...) (indentation ...) (inner-re ...) (type ...) (headers ...) (balanc= ed 1) (preserve-indent ...) match-end) (while (and ... ...) (if ... ... ...= )) (when (not ...) (error "unbalanced begin/end_%s blocks with %S" type ...= )) (setq match-end (copy-marker ...)) (unless preserve-indent (setq body ..= .)) (unless (memq type types) (setq types ...)) (save-match-data (interbloc= k start match-start)) (when (setq func ...) (let ... ...)) (set-marker matc= h-start nil) (set-marker body-start nil) (set-marker match-end nil)) (setq = start (point)))) (interblock start (point-max)) (run-hooks (quote org-expor= t-blocks-postblock-hook))))) org-export-blocks-preprocess() (progn (erase-buffer) (insert string) (setq case-fold-search t) (let ((in= hibit-read-only t)) (remove-text-properties (point-min) (point-max) (quote = (read-only t)))) (org-export-kill-licensed-text) (let ((org-inhibit-startup= t)) (org-mode)) (setq case-fold-search t) (org-clone-local-variables sourc= e-buffer "^\\(org-\\|orgtbl-\\)") (org-install-letbind) (run-hooks (quote o= rg-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) (or= g-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-ex= port-remove-tasks (plist-get parameters :tasks)) (when (plist-get parameter= s :footnotes) (org-footnote-normalize nil parameters)) (org-export-mark-lis= t-end) (org-export-preprocess-apply-macros) (run-hooks (quote org-export-pr= eprocess-after-macros-hook)) (org-export-blocks-preprocess) (org-export-mar= k-list-properties) (org-export-replace-src-segments-and-examples) (org-expo= rt-protect-colon-examples) (org-export-convert-protected-spaces) (setq targ= et-alist (org-export-define-heading-targets target-alist)) (run-hooks (quot= e org-export-preprocess-after-headline-targets-hook)) (org-export-remember-= html-container-classes) (org-export-remove-or-extract-drawers drawers (plis= t-get parameters :drawers)) (when (plist-get parameters :skip-before-1st-he= ading) (goto-char (point-min)) (when (re-search-forward "^\\(#.*\n\\)?\\*+[= ]" nil t) (delete-region (point-min) (match-beginning 0)) (goto-char (poi= nt-min)) (insert "\n"))) (when (plist-get parameters :add-text) (goto-char = (point-min)) (insert (plist-get parameters :add-text) "\n")) (org-export-re= move-headline-metadata parameters) (setq target-alist (org-export-handle-in= visible-targets target-alist)) (run-hooks (quote org-export-preprocess-befo= re-selecting-backend-code-hook)) (org-export-select-backend-specific-text) = (org-export-protect-quoted-subtrees) (org-export-remove-clock-lines) (org-e= xport-protect-verbatim) (org-export-mark-blockquote-verse-center) (run-hook= s (quote org-export-preprocess-after-blockquote-hook)) (unless (plist-get p= arameters :timestamps) (org-export-remove-timestamps)) (setq target-alist (= org-export-attach-captions-and-attributes target-alist)) (org-export-mark-r= adio-links) (run-hooks (quote org-export-preprocess-after-radio-targets-hoo= k)) (org-export-concatenate-multiline-links) (run-hooks (quote org-export-p= reprocess-before-normalizing-links-hook)) (org-export-normalize-links) ...) (unwind-protect (progn (erase-buffer) (insert string) (setq case-fold-sea= rch t) (let ((inhibit-read-only t)) (remove-text-properties (point-min) (po= int-max) (quote (read-only t)))) (org-export-kill-licensed-text) (let ((org= -inhibit-startup t)) (org-mode)) (setq case-fold-search t) (org-clone-local= -variables source-buffer "^\\(org-\\|orgtbl-\\)") (org-install-letbind) (ru= n-hooks (quote org-export-preprocess-hook)) (untabify (point-min) (point-ma= x)) (org-export-handle-include-files-recurse) (run-hooks (quote org-export-= preprocess-after-include-files-hook)) (org-export-remove-archived-trees arc= hived-trees) (org-export-remove-comment-blocks-and-subtrees) (org-export-ha= ndle-export-tags (plist-get parameters :select-tags) (plist-get parameters = :exclude-tags)) (run-hooks (quote org-export-preprocess-after-tree-selectio= n-hook)) (org-export-remove-tasks (plist-get parameters :tasks)) (when (pli= st-get parameters :footnotes) (org-footnote-normalize nil parameters)) (org= -export-mark-list-end) (org-export-preprocess-apply-macros) (run-hooks (quo= te org-export-preprocess-after-macros-hook)) (org-export-blocks-preprocess)= (org-export-mark-list-properties) (org-export-replace-src-segments-and-exa= mples) (org-export-protect-colon-examples) (org-export-convert-protected-sp= aces) (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-drawe= rs drawers (plist-get parameters :drawers)) (when (plist-get parameters :sk= ip-before-1st-heading) (goto-char (point-min)) (when (re-search-forward "^\= \(#.*\n\\)?\\*+[ ]" nil t) (delete-region (point-min) (match-beginning 0))= (goto-char (point-min)) (insert "\n"))) (when (plist-get parameters :add-t= ext) (goto-char (point-min)) (insert (plist-get parameters :add-text) "\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-clo= ck-lines) (org-export-protect-verbatim) (org-export-mark-blockquote-verse-c= enter) (run-hooks (quote org-export-preprocess-after-blockquote-hook)) (unl= ess (plist-get parameters :timestamps) (org-export-remove-timestamps)) (set= q target-alist (org-export-attach-captions-and-attributes target-alist)) (o= rg-export-mark-radio-links) (run-hooks (quote org-export-preprocess-after-r= adio-targets-hook)) (org-export-concatenate-multiline-links) (run-hooks (qu= ote org-export-preprocess-before-normalizing-links-hook)) (org-export-norma= lize-links) ...) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (era= se-buffer) (insert string) (setq case-fold-search t) (let ((inhibit-read-on= ly t)) (remove-text-properties (point-min) (point-max) (quote (read-only t)= ))) (org-export-kill-licensed-text) (let ((org-inhibit-startup t)) (org-mod= e)) (setq case-fold-search t) (org-clone-local-variables source-buffer "^\\= (org-\\|orgtbl-\\)") (org-install-letbind) (run-hooks (quote org-export-pre= process-hook)) (untabify (point-min) (point-max)) (org-export-handle-includ= e-files-recurse) (run-hooks (quote org-export-preprocess-after-include-file= s-hook)) (org-export-remove-archived-trees archived-trees) (org-export-remo= ve-comment-blocks-and-subtrees) (org-export-handle-export-tags (plist-get p= arameters :select-tags) (plist-get parameters :exclude-tags)) (run-hooks (q= uote org-export-preprocess-after-tree-selection-hook)) (org-export-remove-t= asks (plist-get parameters :tasks)) (when (plist-get parameters :footnotes)= (org-footnote-normalize nil parameters)) (org-export-mark-list-end) (org-e= xport-preprocess-apply-macros) (run-hooks (quote org-export-preprocess-afte= r-macros-hook)) (org-export-blocks-preprocess) (org-export-mark-list-proper= ties) (org-export-replace-src-segments-and-examples) (org-export-protect-co= lon-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-containe= r-classes) (org-export-remove-or-extract-drawers drawers (plist-get paramet= ers :drawers)) (when (plist-get parameters :skip-before-1st-heading) (goto-= char (point-min)) (when (re-search-forward "^\\(#.*\n\\)?\\*+[ ]" nil t) (= delete-region (point-min) (match-beginning 0)) (goto-char (point-min)) (ins= ert "\n"))) (when (plist-get parameters :add-text) (goto-char (point-min)) = (insert (plist-get parameters :add-text) "\n")) (org-export-remove-headline= -metadata parameters) (setq target-alist (org-export-handle-invisible-targe= ts target-alist)) (run-hooks (quote org-export-preprocess-before-selecting-= backend-code-hook)) (org-export-select-backend-specific-text) (org-export-p= rotect-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 :ti= mestamps) (org-export-remove-timestamps)) (setq target-alist (org-export-at= tach-captions-and-attributes target-alist)) (org-export-mark-radio-links) (= run-hooks (quote org-export-preprocess-after-radio-targets-hook)) (org-expo= rt-concatenate-multiline-links) (run-hooks (quote org-export-preprocess-bef= ore-normalizing-links-hook)) (org-export-normalize-links) ...) (and (buffer= -name temp-buffer) (kill-buffer temp-buffer)))) (with-current-buffer temp-buffer (unwind-protect (progn (erase-buffer) (i= nsert string) (setq case-fold-search t) (let ((inhibit-read-only t)) (remov= e-text-properties (point-min) (point-max) (quote (read-only t)))) (org-expo= rt-kill-licensed-text) (let ((org-inhibit-startup t)) (org-mode)) (setq cas= e-fold-search t) (org-clone-local-variables source-buffer "^\\(org-\\|orgtb= l-\\)") (org-install-letbind) (run-hooks (quote org-export-preprocess-hook)= ) (untabify (point-min) (point-max)) (org-export-handle-include-files-recur= se) (run-hooks (quote org-export-preprocess-after-include-files-hook)) (org= -export-remove-archived-trees archived-trees) (org-export-remove-comment-bl= ocks-and-subtrees) (org-export-handle-export-tags (plist-get parameters :se= lect-tags) (plist-get parameters :exclude-tags)) (run-hooks (quote org-expo= rt-preprocess-after-tree-selection-hook)) (org-export-remove-tasks (plist-g= et parameters :tasks)) (when (plist-get parameters :footnotes) (org-footnot= e-normalize nil parameters)) (org-export-mark-list-end) (org-export-preproc= ess-apply-macros) (run-hooks (quote org-export-preprocess-after-macros-hook= )) (org-export-blocks-preprocess) (org-export-mark-list-properties) (org-ex= port-replace-src-segments-and-examples) (org-export-protect-colon-examples)= (org-export-convert-protected-spaces) (setq target-alist (org-export-defin= e-heading-targets target-alist)) (run-hooks (quote org-export-preprocess-af= ter-headline-targets-hook)) (org-export-remember-html-container-classes) (o= rg-export-remove-or-extract-drawers drawers (plist-get parameters :drawers)= ) (when (plist-get parameters :skip-before-1st-heading) (goto-char (point-m= in)) (when (re-search-forward "^\\(#.*\n\\)?\\*+[ ]" nil t) (delete-region= (point-min) (match-beginning 0)) (goto-char (point-min)) (insert "\n"))) (= when (plist-get parameters :add-text) (goto-char (point-min)) (insert (plis= t-get parameters :add-text) "\n")) (org-export-remove-headline-metadata par= ameters) (setq target-alist (org-export-handle-invisible-targets target-ali= st)) (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) (o= rg-export-mark-blockquote-verse-center) (run-hooks (quote org-export-prepro= cess-after-blockquote-hook)) (unless (plist-get parameters :timestamps) (or= g-export-remove-timestamps)) (setq target-alist (org-export-attach-captions= -and-attributes target-alist)) (org-export-mark-radio-links) (run-hooks (qu= ote org-export-preprocess-after-radio-targets-hook)) (org-export-concatenat= e-multiline-links) (run-hooks (quote org-export-preprocess-before-normalizi= ng-links-hook)) (org-export-normalize-links) ...) (and (buffer-name temp-bu= ffer) (kill-buffer temp-buffer)))) (let ((temp-buffer (generate-new-buffer " *temp*"))) (with-current-buffer= temp-buffer (unwind-protect (progn (erase-buffer) (insert string) (setq ca= se-fold-search t) (let ((inhibit-read-only t)) (remove-text-properties (poi= nt-min) (point-max) (quote (read-only t)))) (org-export-kill-licensed-text)= (let ((org-inhibit-startup t)) (org-mode)) (setq case-fold-search t) (org-= clone-local-variables source-buffer "^\\(org-\\|orgtbl-\\)") (org-install-l= etbind) (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-archive= d-trees archived-trees) (org-export-remove-comment-blocks-and-subtrees) (or= g-export-handle-export-tags (plist-get parameters :select-tags) (plist-get = parameters :exclude-tags)) (run-hooks (quote org-export-preprocess-after-tr= ee-selection-hook)) (org-export-remove-tasks (plist-get parameters :tasks))= (when (plist-get parameters :footnotes) (org-footnote-normalize nil parame= ters)) (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-segme= nts-and-examples) (org-export-protect-colon-examples) (org-export-convert-p= rotected-spaces) (setq target-alist (org-export-define-heading-targets targ= et-alist)) (run-hooks (quote org-export-preprocess-after-headline-targets-h= ook)) (org-export-remember-html-container-classes) (org-export-remove-or-ex= tract-drawers drawers (plist-get parameters :drawers)) (when (plist-get par= ameters :skip-before-1st-heading) (goto-char (point-min)) (when (re-search-= forward "^\\(#.*\n\\)?\\*+[ ]" nil t) (delete-region (point-min) (match-be= ginning 0)) (goto-char (point-min)) (insert "\n"))) (when (plist-get parame= ters :add-text) (goto-char (point-min)) (insert (plist-get parameters :add-= text) "\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-sel= ect-backend-specific-text) (org-export-protect-quoted-subtrees) (org-export= -remove-clock-lines) (org-export-protect-verbatim) (org-export-mark-blockqu= ote-verse-center) (run-hooks (quote org-export-preprocess-after-blockquote-= hook)) (unless (plist-get parameters :timestamps) (org-export-remove-timest= amps)) (setq target-alist (org-export-attach-captions-and-attributes target= -alist)) (org-export-mark-radio-links) (run-hooks (quote org-export-preproc= ess-after-radio-targets-hook)) (org-export-concatenate-multiline-links) (ru= n-hooks (quote org-export-preprocess-before-normalizing-links-hook)) (org-e= xport-normalize-links) ...) (and (buffer-name temp-buffer) (kill-buffer tem= p-buffer))))) (with-temp-buffer (erase-buffer) (insert string) (setq case-fold-search t= ) (let ((inhibit-read-only t)) (remove-text-properties (point-min) (point-m= ax) (quote (read-only t)))) (org-export-kill-licensed-text) (let ((org-inhi= bit-startup t)) (org-mode)) (setq case-fold-search t) (org-clone-local-vari= ables source-buffer "^\\(org-\\|orgtbl-\\)") (org-install-letbind) (run-hoo= ks (quote org-export-preprocess-hook)) (untabify (point-min) (point-max)) (= org-export-handle-include-files-recurse) (run-hooks (quote org-export-prepr= ocess-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 :excl= ude-tags)) (run-hooks (quote org-export-preprocess-after-tree-selection-hoo= k)) (org-export-remove-tasks (plist-get parameters :tasks)) (when (plist-ge= t parameters :footnotes) (org-footnote-normalize nil parameters)) (org-expo= rt-mark-list-end) (org-export-preprocess-apply-macros) (run-hooks (quote or= g-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-expor= t-remember-html-container-classes) (org-export-remove-or-extract-drawers dr= awers (plist-get parameters :drawers)) (when (plist-get parameters :skip-be= fore-1st-heading) (goto-char (point-min)) (when (re-search-forward "^\\(#.*= \n\\)?\\*+[ ]" nil t) (delete-region (point-min) (match-beginning 0)) (got= o-char (point-min)) (insert "\n"))) (when (plist-get parameters :add-text) = (goto-char (point-min)) (insert (plist-get parameters :add-text) "\n")) (or= g-export-remove-headline-metadata parameters) (setq target-alist (org-expor= t-handle-invisible-targets target-alist)) (run-hooks (quote org-export-prep= rocess-before-selecting-backend-code-hook)) (org-export-select-backend-spec= ific-text) (org-export-protect-quoted-subtrees) (org-export-remove-clock-li= nes) (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 tar= get-alist (org-export-attach-captions-and-attributes target-alist)) (org-ex= port-mark-radio-links) (run-hooks (quote org-export-preprocess-after-radio-= targets-hook)) (org-export-concatenate-multiline-links) (run-hooks (quote o= rg-export-preprocess-before-normalizing-links-hook)) (org-export-normalize-= links) ...) (let* ((org-export-current-backend (or (plist-get parameters :for-backend= ) org-export-current-backend)) (archived-trees (plist-get parameters :archi= ved-trees)) (inhibit-read-only t) (drawers org-drawers) (source-buffer (cur= rent-buffer)) target-alist rtn) (setq org-export-target-aliases nil org-exp= ort-preferred-target-alist nil org-export-id-target-alist nil org-export-co= de-refs nil) (with-temp-buffer (erase-buffer) (insert string) (setq case-fo= ld-search t) (let ((inhibit-read-only t)) (remove-text-properties (point-mi= n) (point-max) (quote (read-only t)))) (org-export-kill-licensed-text) (let= ((org-inhibit-startup t)) (org-mode)) (setq case-fold-search t) (org-clone= -local-variables source-buffer "^\\(org-\\|orgtbl-\\)") (org-install-letbin= d) (run-hooks (quote org-export-preprocess-hook)) (untabify (point-min) (po= int-max)) (org-export-handle-include-files-recurse) (run-hooks (quote org-e= xport-preprocess-after-include-files-hook)) (org-export-remove-archived-tre= es archived-trees) (org-export-remove-comment-blocks-and-subtrees) (org-exp= ort-handle-export-tags (plist-get parameters :select-tags) (plist-get param= eters :exclude-tags)) (run-hooks (quote org-export-preprocess-after-tree-se= lection-hook)) (org-export-remove-tasks (plist-get parameters :tasks)) (whe= n (plist-get parameters :footnotes) (org-footnote-normalize nil parameters)= ) (org-export-mark-list-end) (org-export-preprocess-apply-macros) (run-hook= s (quote org-export-preprocess-after-macros-hook)) (org-export-blocks-prepr= ocess) (org-export-mark-list-properties) (org-export-replace-src-segments-a= nd-examples) (org-export-protect-colon-examples) (org-export-convert-protec= ted-spaces) (setq target-alist (org-export-define-heading-targets target-al= ist)) (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 paramete= rs :skip-before-1st-heading) (goto-char (point-min)) (when (re-search-forwa= rd "^\\(#.*\n\\)?\\*+[ ]" nil t) (delete-region (point-min) (match-beginni= ng 0)) (goto-char (point-min)) (insert "\n"))) (when (plist-get parameters = :add-text) (goto-char (point-min)) (insert (plist-get parameters :add-text)= "\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-b= ackend-specific-text) (org-export-protect-quoted-subtrees) (org-export-remo= ve-clock-lines) (org-export-protect-verbatim) (org-export-mark-blockquote-v= erse-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-alis= t)) (org-export-mark-radio-links) (run-hooks (quote org-export-preprocess-a= fter-radio-targets-hook)) (org-export-concatenate-multiline-links) (run-hoo= ks (quote org-export-preprocess-before-normalizing-links-hook)) (org-export= -normalize-links) ...) rtn) org-export-preprocess-string(#("#+Title: overview of the execution of a C= code block\n#+Author: Eric Schulte\n#+Style: \n\nThe =3Dorg-babel-execute:C=3D is used to= execute a block of C code. The\nsource code of this function is presented= below with inline comments\nexplaining the sequence of operations.\n\nIn a= ctuality =3Dorg-babel-execute:C=3D just calls =3Dorg-babel-C-execute=3D,\nw= hich is used to execute both C and C++ code blocks. The evaluation\nproces= s is as follows. Note: hover your mouse over references to see\nthe corresp= onding point in the source code -- this behavior is\ndescribed in the Org-m= ode [[http://orgmode.org/manual/Literal-examples.html][manual]].\n\n1. A te= mporary file [[(tmp-file)]] is created to hold the source code\n present = in the code block. A language appropriate extension is\n added [[(ext)]]= .\n2. Another temporary file is created [[(bin-file)]] to hold the compiled= \n binary executable.\n3. Two header arguments which are specific to C/C+= + code blocks are\n collected.\n - =3D:cmdline=3D [[(cmdline)]] which h= olds a string to pass on the command\n line to the compiled binary when= it is evaluated\n - =3D:flags=3D [[(flags)]] which holds a string of fla= gs to pass to the\n compiler during execution\n4. The body of the code = block is expanded [[(expand)]]. Every language\n has an expansion functi= on which is responsible for adding variables\n to the code block, and in = some cases wrapping the code block for\n the collection of results.\n5. T= o compile the code block, the expanded body is dumped into the\n temporar= y sourced code file [[(src-dump)]], the compiler command is\n generated f= rom the compiler, src-file-name, bin-file-name and flags\n respectively [= [(cmpl)]].\n6. The resulting binary file is then evaluated [[(evaluation)]]= and the\n output is passed to an anonymous function [[(results-processin= g)]] as\n the local variable named =3Dresults=3D.\n7. The results are the= n either read into a table [[(table)]] or read into\n an elisp data struc= ture [[(elisp)]] depending on the values of the\n =3D:results=3D header a= rgument. Optional column [[(colname)]] and row\n [[(rowname)]] names are= applied again according to the corresponding\n header arguments.\n8. Fin= ally the processed results are handed back to the rest of the\n code bloc= k machinery which handles the incorporation of the results\n into the Org= -mode buffer.\n\n#+begin_src emacs-lisp -n -l \"ref:%s\"\n (defun org-babe= l-C-execute (body params)\n \"This function should only be called by `or= g-babel-execute:C'\n or `org-babel-execute:C++'.\"\n (let* ((tmp-src-fi= le (org-babel-temp-file ; ref:tmp-file\n \"C-src-\= "\n (cond ; ref:ext\n = ((equal org-babel-c-variant 'c) \".c\")\n = ((equal org-babel-c-variant 'cpp) \".cpp\"))))\n (tmp-bin-file (= org-babel-temp-file \"C-bin-\")) ; ref:bin-file\n (cmdline (cdr (= assoc :cmdline params))) ; ref:cmdline\n (flags (cdr (assoc= :flags params))) ; ref:flags\n (full-body (org-babel-C= -expand body params)) ; ref:expand\n (compile\n (prog= n\n (with-temp-file tmp-src-file (insert full-body)) ; ref:sr= c-dump\n (org-babel-eval\n (format \"%s -o %s %s= %s\" ; ref:cmpl\n (cond\n (= (equal org-babel-c-variant 'c) org-babel-C-compiler)\n = ((equal org-babel-c-variant 'cpp) org-babel-C++-compiler))\n = (org-babel-process-file-name tmp-bin-file)\n = (mapconcat 'identity\n (if (listp flags= ) flags (list flags)) \" \")\n (org-babel-process-fil= e-name tmp-src-file)) \"\"))))\n ((lambda (results) ;= ref:results-processing\n (org-babel-reassemble-table\n (i= f (member \"vector\" (cdr (assoc :result-params params)))\n (l= et ((tmp-file (org-babel-temp-file \"c-\")))\n (with-temp-fi= le tmp-file (insert results))\n (org-babel-import-elisp-from= -file tmp-file)) ; ref:table\n (org-babel-read results)) ; r= ef:elisp\n (org-babel-pick-name ; ref:colname\n = (cdr (assoc :colname-names params)) (cdr (assoc :colnames params)))\n = (org-babel-pick-name ; ref:rowname\n (cdr (asso= c :rowname-names params)) (cdr (assoc :rownames params)))))\n (org-ba= bel-trim\n (org-babel-eval ; ref:evaluation\n = (concat tmp-bin-file (if cmdline (concat \" \" cmdline) \"\")) \"\"))))= )\n#+end_src\n" 0 8 (fontified nil font-lock-fontified t) 8 9 (fontified ni= l) 9 52 (fontified nil font-lock-fontified t) 52 53 (fontified nil) 53 62 (= fontified nil font-lock-fontified t) 62 63 (fontified nil) 63 75 (fontified= nil font-lock-fontified t) 75 76 (fontified nil) 76 216 (fontified nil fon= t-lock-fontified t) 216 217 (fontified nil font-lock-fontified t) 217 221 (= fontified nil :org-license-to-kill t) 221 222 (fontified nil :org-license-t= o-kill t) 222 223 (fontified nil :org-license-to-kill t) 223 242 (fontified= nil :org-license-to-kill t) 242 243 (fontified nil :org-license-to-kill t)= 243 244 (fontified nil :org-license-to-kill t) 244 408 (fontified nil :org= -license-to-kill t) 408 409 (fontified nil :org-license-to-kill t) 409 410 = (fontified nil :org-license-to-kill t) 410 429 (fontified nil :org-license-= to-kill t) 429 430 (fontified nil :org-license-to-kill t) 430 431 (fontifie= d nil :org-license-to-kill t) 431 441 (fontified nil :org-license-to-kill t= ) 441 442 (fontified nil :org-license-to-kill t) 442 443 (fontified nil :or= g-license-to-kill t) 443 462 (fontified nil :org-license-to-kill t) 462 463= (fontified nil :org-license-to-kill t) 463 464 (fontified nil :org-license= -to-kill t) 464 534 (fontified nil :org-license-to-kill t) 534 646 (fontifi= ed nil :org-license-to-kill t) 646 649 (fontified nil :org-license-to-kill = t) 649 692 (fontified nil :org-license-to-kill t) 692 694 (fontified nil he= lp-echo "LINK: http://orgmode.org/manual/Literal-examples.html" :org-licens= e-to-kill t) 694 742 (fontified nil help-echo "LINK: http://orgmode.org/man= ual/Literal-examples.html" :org-license-to-kill t) 742 743 (fontified nil h= elp-echo "LINK: http://orgmode.org/manual/Literal-examples.html" rear-nonst= icky (mouse-face highlight keymap invisible intangible help-echo org-linked= -text) :org-license-to-kill t) 743 748 (fontified nil help-echo "LINK: http= ://orgmode.org/manual/Literal-examples.html" :org-license-to-kill t) 748 74= 9 (fontified nil rear-nonsticky (mouse-face highlight keymap invisible inta= ngible help-echo org-linked-text) help-echo "LINK: http://orgmode.org/manua= l/Literal-examples.html" :org-license-to-kill t) 749 750 (fontified nil hel= p-echo "LINK: http://orgmode.org/manual/Literal-examples.html" :org-license= -to-kill t) 750 751 (fontified nil help-echo "LINK: http://orgmode.org/manu= al/Literal-examples.html" rear-nonsticky (mouse-face highlight keymap invis= ible intangible help-echo org-linked-text) :org-license-to-kill t) 751 754 = (fontified nil :org-license-to-kill t) 754 756 (fontified nil :org-license-= to-kill t) 756 774 (fontified nil :org-license-to-kill t) 774 775 (fontifie= d nil help-echo "LINK: (tmp-file)" :org-license-to-kill t) 775 776 (fontifi= ed nil help-echo "LINK: (tmp-file)" rear-nonsticky (mouse-face highlight ke= ymap invisible intangible help-echo org-linked-text) :org-license-to-kill t= ) 776 785 (fontified nil help-echo "LINK: (tmp-file)" :org-license-to-kill = t) 785 786 (fontified nil help-echo "LINK: (tmp-file)" rear-nonsticky (mous= e-face highlight keymap invisible intangible help-echo org-linked-text) :or= g-license-to-kill t) 786 787 (fontified nil help-echo "LINK: (tmp-file)" :o= rg-license-to-kill t) 787 788 (fontified nil help-echo "LINK: (tmp-file)" r= ear-nonsticky (mouse-face highlight keymap invisible intangible help-echo o= rg-linked-text) :org-license-to-kill t) 788 900 (fontified nil :org-license= -to-kill t) 900 901 (fontified nil help-echo "LINK: (ext)" :org-license-to-= kill t) 901 902 (fontified nil help-echo "LINK: (ext)" rear-nonsticky (mous= e-face highlight keymap invisible intangible help-echo org-linked-text) :or= g-license-to-kill t) 902 906 (fontified nil help-echo "LINK: (ext)" :org-li= cense-to-kill t) 906 907 (fontified nil help-echo "LINK: (ext)" rear-nonsti= cky (mouse-face highlight keymap invisible intangible help-echo org-linked-= text) :org-license-to-kill t) 907 908 (fontified nil help-echo "LINK: (ext)= " :org-license-to-kill t) 908 909 (fontified nil help-echo "LINK: (ext)" re= ar-nonsticky (mouse-face highlight keymap invisible intangible help-echo or= g-linked-text) :org-license-to-kill t) 909 911 (fontified nil :org-license-= to-kill t) 911 913 (fontified nil :org-license-to-kill t) 913 948 (fontifie= d nil :org-license-to-kill t) 948 949 (fontified nil help-echo "LINK: (bin-= file)" :org-license-to-kill t) 949 950 (fontified nil help-echo "LINK: (bin= -file)" rear-nonsticky (mouse-face highlight keymap invisible intangible he= lp-echo org-linked-text) :org-license-to-kill t) 950 959 (fontified nil hel= p-echo "LINK: (bin-file)" :org-license-to-kill t) 959 960 (fontified nil he= lp-echo "LINK: (bin-file)" rear-nonsticky (mouse-face highlight keymap invi= sible intangible help-echo org-linked-text) :org-license-to-kill t) 960 961= (fontified nil help-echo "LINK: (bin-file)" :org-license-to-kill t) 961 96= 2 (fontified nil help-echo "LINK: (bin-file)" rear-nonsticky (mouse-face hi= ghlight keymap invisible intangible help-echo org-linked-text) :org-license= -to-kill t) 962 1006 (fontified nil :org-license-to-kill t) 1006 1008 (font= ified nil :org-license-to-kill t) 1008 1074 (fontified nil :org-license-to-= kill t) 1074 1091 (fontified nil :org-license-to-kill t) 1091 1092 (fontifi= ed nil :org-license-to-kill t) 1092 1093 (fontified nil :org-license-to-kil= l t) 1093 1094 (fontified nil :org-license-to-kill t) 1094 1102 (fontified = nil :org-license-to-kill t) 1102 1103 (fontified nil :org-license-to-kill t= ) 1103 1104 (fontified nil :org-license-to-kill t) 1104 1105 (fontified nil= help-echo "LINK: (cmdline)" :org-license-to-kill t) 1105 1106 (fontified n= il help-echo "LINK: (cmdline)" rear-nonsticky (mouse-face highlight keymap = invisible intangible help-echo org-linked-text) :org-license-to-kill t) 110= 6 1114 (fontified nil help-echo "LINK: (cmdline)" :org-license-to-kill t) 1= 114 1115 (fontified nil help-echo "LINK: (cmdline)" rear-nonsticky (mouse-f= ace highlight keymap invisible intangible help-echo org-linked-text) :org-l= icense-to-kill t) 1115 1116 (fontified nil help-echo "LINK: (cmdline)" :org= -license-to-kill t) 1116 1117 (fontified nil help-echo "LINK: (cmdline)" re= ar-nonsticky (mouse-face highlight keymap invisible intangible help-echo or= g-linked-text) :org-license-to-kill t) 1117 1219 (fontified nil :org-licens= e-to-kill t) 1219 1220 (fontified nil :org-license-to-kill t) 1220 1221 (fo= ntified nil :org-license-to-kill t) 1221 1222 (fontified nil :org-license-t= o-kill t) 1222 1228 (fontified nil :org-license-to-kill t) 1228 1229 (fonti= fied nil :org-license-to-kill t) 1229 1230 (fontified nil :org-license-to-k= ill t) 1230 1231 (fontified nil help-echo "LINK: (flags)" :org-license-to-k= ill t) 1231 1232 (fontified nil help-echo "LINK: (flags)" rear-nonsticky (m= ouse-face highlight keymap invisible intangible help-echo org-linked-text) = :org-license-to-kill t) 1232 1238 (fontified nil help-echo "LINK: (flags)" = :org-license-to-kill t) 1238 1239 (fontified nil help-echo "LINK: (flags)" = rear-nonsticky (mouse-face highlight keymap invisible intangible help-echo = org-linked-text) :org-license-to-kill t) 1239 1240 (fontified nil help-echo= "LINK: (flags)" :org-license-to-kill t) 1240 1241 (fontified nil help-echo= "LINK: (flags)" rear-nonsticky (mouse-face highlight keymap invisible inta= ngible help-echo org-linked-text) :org-license-to-kill t) 1241 1318 (fontif= ied nil :org-license-to-kill t) 1318 1320 (fontified nil :org-license-to-ki= ll t) 1320 1360 (fontified nil :org-license-to-kill t) 1360 1361 (fontified= nil help-echo "LINK: (expand)" :org-license-to-kill t) 1361 1362 (fontifie= d nil help-echo "LINK: (expand)" rear-nonsticky (mouse-face highlight keyma= p invisible intangible help-echo org-linked-text) :org-license-to-kill t) 1= 362 1369 (fontified nil help-echo "LINK: (expand)" :org-license-to-kill t) = 1369 1370 (fontified nil help-echo "LINK: (expand)" rear-nonsticky (mouse-f= ace highlight keymap invisible intangible help-echo org-linked-text) :org-l= icense-to-kill t) 1370 1371 (fontified nil help-echo "LINK: (expand)" :org-= license-to-kill t) 1371 1372 (fontified nil help-echo "LINK: (expand)" rear= -nonsticky (mouse-face highlight keymap invisible intangible help-echo org-= linked-text) :org-license-to-kill t) 1372 1559 (fontified nil :org-license-= to-kill t) 1559 1561 (fontified nil :org-license-to-kill t) 1561 1626 (font= ified nil :org-license-to-kill t) 1626 1657 (fontified nil :org-license-to-= kill t) 1657 1658 (fontified nil help-echo "LINK: (src-dump)" :org-license-= to-kill t) 1658 1659 (fontified nil help-echo "LINK: (src-dump)" rear-nonst= icky (mouse-face highlight keymap invisible intangible help-echo org-linked= -text) :org-license-to-kill t) 1659 1668 (fontified nil help-echo "LINK: (s= rc-dump)" :org-license-to-kill t) 1668 1669 (fontified nil help-echo "LINK:= (src-dump)" rear-nonsticky (mouse-face highlight keymap invisible intangib= le help-echo org-linked-text) :org-license-to-kill t) 1669 1670 (fontified = nil help-echo "LINK: (src-dump)" :org-license-to-kill t) 1670 1671 (fontifi= ed nil help-echo "LINK: (src-dump)" rear-nonsticky (mouse-face highlight ke= ymap invisible intangible help-echo org-linked-text) :org-license-to-kill t= ) 1671 1784 (fontified nil :org-license-to-kill t) 1784 1785 (fontified nil= help-echo "LINK: (cmpl)" :org-license-to-kill t) 1785 1786 (fontified nil = help-echo "LINK: (cmpl)" rear-nonsticky (mouse-face highlight keymap invisi= ble intangible help-echo org-linked-text) :org-license-to-kill t) 1786 1791= (fontified nil help-echo "LINK: (cmpl)" :org-license-to-kill t) 1791 1792 = (fontified nil help-echo "LINK: (cmpl)" rear-nonsticky (mouse-face highligh= t keymap invisible intangible help-echo org-linked-text) :org-license-to-ki= ll t) 1792 1793 (fontified nil help-echo "LINK: (cmpl)" :org-license-to-kil= l t) 1793 1794 (fontified nil help-echo "LINK: (cmpl)" rear-nonsticky (mous= e-face highlight keymap invisible intangible help-echo org-linked-text) :or= g-license-to-kill t) 1794 1796 (fontified nil :org-license-to-kill t) 1796 = 1798 (fontified nil :org-license-to-kill t) 1798 1843 (fontified nil :org-l= icense-to-kill t) 1843 1844 (fontified nil help-echo "LINK: (evaluation)" := org-license-to-kill t) 1844 1845 (fontified nil help-echo "LINK: (evaluatio= n)" rear-nonsticky (mouse-face highlight keymap invisible intangible help-e= cho org-linked-text) :org-license-to-kill t) 1845 1856 (fontified nil help-= echo "LINK: (evaluation)" :org-license-to-kill t) 1856 1857 (fontified nil = help-echo "LINK: (evaluation)" rear-nonsticky (mouse-face highlight keymap = invisible intangible help-echo org-linked-text) :org-license-to-kill t) 185= 7 1858 (fontified nil help-echo "LINK: (evaluation)" :org-license-to-kill t= ) 1858 1859 (fontified nil help-echo "LINK: (evaluation)" rear-nonsticky (m= ouse-face highlight keymap invisible intangible help-echo org-linked-text) = :org-license-to-kill t) 1859 1913 (fontified nil :org-license-to-kill t) 19= 13 1914 (fontified nil help-echo "LINK: (results-processing)" :org-license-= to-kill t) 1914 1915 (fontified nil help-echo "LINK: (results-processing)" = rear-nonsticky (mouse-face highlight keymap invisible intangible help-echo = org-linked-text) :org-license-to-kill t) 1915 1934 (fontified nil help-echo= "LINK: (results-processing)" :org-license-to-kill t) 1934 1935 (fontified = nil help-echo "LINK: (results-processing)" rear-nonsticky (mouse-face highl= ight keymap invisible intangible help-echo org-linked-text) :org-license-to= -kill t) 1935 1936 (fontified nil help-echo "LINK: (results-processing)" :o= rg-license-to-kill t) 1936 1937 (fontified nil help-echo "LINK: (results-pr= ocessing)" rear-nonsticky (mouse-face highlight keymap invisible intangible= help-echo org-linked-text) :org-license-to-kill t) 1937 1968 (fontified ni= l :org-license-to-kill t) 1968 1969 (fontified nil :org-license-to-kill t) = 1969 1970 (fontified nil :org-license-to-kill t) 1970 1977 (fontified nil := org-license-to-kill t) 1977 1978 (fontified nil :org-license-to-kill t) 197= 8 1979 (fontified nil :org-license-to-kill t) 1979 1980 (fontified nil :org= -license-to-kill t) 1980 1982 (fontified nil :org-license-to-kill t) 1982 2= 029 (fontified nil :org-license-to-kill t) 2029 2030 (fontified nil help-ec= ho "LINK: (table)" :org-license-to-kill t) 2030 2031 (fontified nil help-ec= ho "LINK: (table)" rear-nonsticky (mouse-face highlight keymap invisible in= tangible help-echo org-linked-text) :org-license-to-kill t) 2031 2037 (font= ified nil help-echo "LINK: (table)" :org-license-to-kill t) 2037 2038 (font= ified nil help-echo "LINK: (table)" rear-nonsticky (mouse-face highlight ke= ymap invisible intangible help-echo org-linked-text) :org-license-to-kill t= ) 2038 2039 (fontified nil help-echo "LINK: (table)" :org-license-to-kill t= ) 2039 2040 (fontified nil help-echo "LINK: (table)" rear-nonsticky (mouse-= face highlight keymap invisible intangible help-echo org-linked-text) :org-= license-to-kill t) 2040 2081 (fontified nil :org-license-to-kill t) 2081 20= 82 (fontified nil help-echo "LINK: (elisp)" :org-license-to-kill t) 2082 20= 83 (fontified nil help-echo "LINK: (elisp)" rear-nonsticky (mouse-face high= light keymap invisible intangible help-echo org-linked-text) :org-license-t= o-kill t) 2083 2089 (fontified nil help-echo "LINK: (elisp)" :org-license-t= o-kill t) 2089 2090 (fontified nil help-echo "LINK: (elisp)" rear-nonsticky= (mouse-face highlight keymap invisible intangible help-echo org-linked-tex= t) :org-license-to-kill t) 2090 2091 (fontified nil help-echo "LINK: (elisp= )" :org-license-to-kill t) 2091 2092 (fontified nil help-echo "LINK: (elisp= )" rear-nonsticky (mouse-face highlight keymap invisible intangible help-ec= ho org-linked-text) :org-license-to-kill t) 2092 2126 (fontified nil :org-l= icense-to-kill t) 2126 2127 (fontified nil :org-license-to-kill t) 2127 212= 8 (fontified nil :org-license-to-kill t) 2128 2136 (fontified nil :org-lice= nse-to-kill t) 2136 2137 (fontified nil :org-license-to-kill t) 2137 2138 (= fontified nil :org-license-to-kill t) 2138 2172 (fontified nil :org-license= -to-kill t) 2172 2173 (fontified nil help-echo "LINK: (colname)" :org-licen= se-to-kill t) 2173 2174 (fontified nil help-echo "LINK: (colname)" rear-non= sticky (mouse-face highlight keymap invisible intangible help-echo org-link= ed-text) :org-license-to-kill t) 2174 2182 (fontified nil help-echo "LINK: = (colname)" :org-license-to-kill t) 2182 2183 (fontified nil help-echo "LINK= : (colname)" rear-nonsticky (mouse-face highlight keymap invisible intangib= le help-echo org-linked-text) :org-license-to-kill t) 2183 2184 (fontified = nil help-echo "LINK: (colname)" :org-license-to-kill t) 2184 2185 (fontifie= d nil help-echo "LINK: (colname)" rear-nonsticky (mouse-face highlight keym= ap invisible intangible help-echo org-linked-text) :org-license-to-kill t) = 2185 2194 (fontified nil :org-license-to-kill t) 2194 2197 (fontified nil := org-license-to-kill t) 2197 2198 (fontified nil help-echo "LINK: (rowname)"= :org-license-to-kill t) 2198 2199 (fontified nil help-echo "LINK: (rowname= )" rear-nonsticky (mouse-face highlight keymap invisible intangible help-ec= ho org-linked-text) :org-license-to-kill t) 2199 2207 (fontified nil help-e= cho "LINK: (rowname)" :org-license-to-kill t) 2207 2208 (fontified nil help= -echo "LINK: (rowname)" rear-nonsticky (mouse-face highlight keymap invisib= le intangible help-echo org-linked-text) :org-license-to-kill t) 2208 2209 = (fontified nil help-echo "LINK: (rowname)" :org-license-to-kill t) 2209 221= 0 (fontified nil help-echo "LINK: (rowname)" rear-nonsticky (mouse-face hig= hlight keymap invisible intangible help-echo org-linked-text) :org-license-= to-kill t) 2210 2287 (fontified nil :org-license-to-kill t) 2287 2289 (font= ified nil :org-license-to-kill t) 2289 2456 (fontified nil :org-license-to-= kill t) 2456 2463 (fontified nil font-lock-fontified t) 2463 2467 (fontifie= d nil font-lock-fontified t) 2467 2493 (fontified nil font-lock-fontified t= ) 2493 2494 (fontified nil font-lock-fontified t) 2494 2497 (fontified nil = font-lock-fontified t :org-license-to-kill t) 2497 2498 (fontified nil font= -lock-fontified t :org-license-to-kill t) 2498 2502 (fontified nil font-loc= k-fontified t :org-license-to-kill t) 2502 2503 (fontified nil font-lock-fo= ntified t :org-license-to-kill t) 2503 2504 (fontified nil font-lock-fontif= ied t :org-license-to-kill t) 2504 2522 (fontified nil font-lock-fontified = t :org-license-to-kill t) 2522 2523 (fontified nil font-lock-fontified t :o= rg-license-to-kill t) 2523 2541 (fontified nil font-lock-fontified t :org-l= icense-to-kill t) 2541 2542 (fontified nil font-lock-fontified t :org-licen= se-to-kill t) 2542 2582 (fontified nil font-lock-fontified t :org-license-t= o-kill t) 2582 2583 (fontified nil font-lock-fontified t :org-license-to-ki= ll t) 2583 2601 (fontified nil font-lock-fontified t :org-license-to-kill t= ) 2601 2602 (fontified nil font-lock-fontified t :org-license-to-kill t) 26= 02 2609 (fontified nil font-lock-fontified t :org-license-to-kill t) 2609 2= 610 (fontified nil font-lock-fontified t :org-license-to-kill t) 2610 2630 = (fontified nil font-lock-fontified t :org-license-to-kill t) 2630 2631 (fon= tified nil font-lock-fontified t :org-license-to-kill t) 2631 2633 (fontifi= ed nil font-lock-fontified t :org-license-to-kill t) 2633 2634 (fontified n= il font-lock-fontified t :org-license-to-kill t) 2634 2639 (fontified nil f= ont-lock-fontified t :org-license-to-kill t) 2639 2640 (fontified nil font-= lock-fontified t :org-license-to-kill t) 2640 2642 (fontified nil font-lock= -fontified t :org-license-to-kill t) 2642 2643 (fontified nil font-lock-fon= tified t :org-license-to-kill t) 2643 2644 (fontified nil font-lock-fontifi= ed t :org-license-to-kill t) 2644 2680 (fontified nil font-lock-fontified t= :org-license-to-kill t) 2680 2681 (fontified nil font-lock-fontified t :or= g-license-to-kill t) 2681 2682 (fontified nil font-lock-fontified t :org-li= cense-to-kill t) 2682 2683 (fontified nil font-lock-fontified t :org-licens= e-to-kill t) 2683 2695 (fontified nil font-lock-fontified t :org-license-to= -kill t) 2695 2696 (fontified nil font-lock-fontified t :org-license-to-kil= l t) 2696 2721 (fontified nil font-lock-fontified t :org-license-to-kill t)= 2721 2722 (fontified nil font-lock-fontified t :org-license-to-kill t) 272= 2 2729 (fontified nil font-lock-fontified t :org-license-to-kill t) 2729 27= 30 (fontified nil font-lock-fontified t :org-license-to-kill t) 2730 2757 (= fontified nil font-lock-fontified t :org-license-to-kill t) 2757 2758 (font= ified nil font-lock-fontified t :org-license-to-kill t) 2758 2761 (fontifie= d nil font-lock-fontified t :org-license-to-kill t) 2761 2762 (fontified ni= l font-lock-fontified t :org-license-to-kill t) 2762 2772 (fontified nil fo= nt-lock-fontified t :org-license-to-kill t) 2772 2773 (fontified nil font-l= ock-fontified t :org-license-to-kill t) 2773 2774 (fontified nil font-lock-= fontified t :org-license-to-kill t) 2774 2775 (fontified nil font-lock-font= ified t :org-license-to-kill t) 2775 2782 (fontified nil font-lock-fontifie= d t :org-license-to-kill t) 2782 2783 (fontified nil font-lock-fontified t = :org-license-to-kill t) 2783 2841 (fontified nil font-lock-fontified t :org= -license-to-kill t) 2841 2842 (fontified nil font-lock-fontified t :org-lic= ense-to-kill t) 2842 2845 (fontified nil font-lock-fontified t :org-license= -to-kill t) 2845 2846 (fontified nil font-lock-fontified t :org-license-to-= kill t) 2846 2908 (fontified nil font-lock-fontified t :org-license-to-kill= t) 2908 2909 (fontified nil font-lock-fontified t :org-license-to-kill t) = 2909 2914 (fontified nil font-lock-fontified t :org-license-to-kill t) 2914= 2915 (fontified nil font-lock-fontified t :org-license-to-kill t) 2915 296= 5 (fontified nil font-lock-fontified t :org-license-to-kill t) 2965 2966 (f= ontified nil font-lock-fontified t :org-license-to-kill t) 2966 2973 (fonti= fied nil font-lock-fontified t :org-license-to-kill t) 2973 2974 (fontified= nil font-lock-fontified t :org-license-to-kill t) 2974 2976 (fontified nil= font-lock-fontified t :org-license-to-kill t) 2976 2977 (fontified nil fon= t-lock-fontified t :org-license-to-kill t) 2977 2978 (fontified nil font-lo= ck-fontified t :org-license-to-kill t) 2978 2979 (fontified nil font-lock-f= ontified t :org-license-to-kill t) 2979 2991 (fontified nil font-lock-fonti= fied t :org-license-to-kill t) 2991 2992 (fontified nil font-lock-fontified= t :org-license-to-kill t) 2992 3023 (fontified nil font-lock-fontified t := org-license-to-kill t) 3023 3024 (fontified nil font-lock-fontified t :org-= license-to-kill t) 3024 3031 (fontified nil font-lock-fontified t :org-lice= nse-to-kill t) 3031 3032 (fontified nil font-lock-fontified t :org-license-= to-kill t) 3032 3048 (fontified nil font-lock-fontified t :org-license-to-k= ill t) 3048 3049 (fontified nil font-lock-fontified t :org-license-to-kill = t) 3049 3050 (fontified nil font-lock-fontified t :org-license-to-kill t) 3= 050 3051 (fontified nil font-lock-fontified t :org-license-to-kill t) 3051 = 3062 (fontified nil font-lock-fontified t :org-license-to-kill t) 3062 3063= (fontified nil font-lock-fontified t :org-license-to-kill t) 3063 3092 (fo= ntified nil font-lock-fontified t :org-license-to-kill t) 3092 3093 (fontif= ied nil font-lock-fontified t :org-license-to-kill t) 3093 3098 (fontified = nil font-lock-fontified t :org-license-to-kill t) 3098 3099 (fontified nil = font-lock-fontified t :org-license-to-kill t) 3099 3119 (fontified nil font= -lock-fontified t :org-license-to-kill t) 3119 3120 (fontified nil font-loc= k-fontified t :org-license-to-kill t) 3120 3121 (fontified nil font-lock-fo= ntified t :org-license-to-kill t) 3121 3122 (fontified nil font-lock-fontif= ied t :org-license-to-kill t) 3122 3131 (fontified nil font-lock-fontified = t :org-license-to-kill t) 3131 3132 (fontified nil font-lock-fontified t :o= rg-license-to-kill t) 3132 3188 (fontified nil font-lock-fontified t :org-l= icense-to-kill t) 3188 3189 (fontified nil font-lock-fontified t :org-licen= se-to-kill t) 3189 3190 (fontified nil font-lock-fontified t :org-license-t= o-kill t) 3190 3191 (fontified nil font-lock-fontified t :org-license-to-ki= ll t) 3191 3201 (fontified nil font-lock-fontified t :org-license-to-kill t= ) 3201 3202 (fontified nil font-lock-fontified t :org-license-to-kill t) 32= 02 3234 (fontified nil font-lock-fontified t :org-license-to-kill t) 3234 3= 235 (fontified nil font-lock-fontified t :org-license-to-kill t) 3235 3239 = (fontified nil font-lock-fontified t :org-license-to-kill t) 3239 3240 (fon= tified nil font-lock-fontified t :org-license-to-kill t) 3240 3255 (fontifi= ed nil font-lock-fontified t :org-license-to-kill t) 3255 3256 (fontified n= il font-lock-fontified t :org-license-to-kill t) 3256 3269 (fontified nil f= ont-lock-fontified t :org-license-to-kill t) 3269 3270 (fontified nil font-= lock-fontified t :org-license-to-kill t) 3270 3304 (fontified nil font-lock= -fontified t :org-license-to-kill t) 3304 3305 (fontified nil font-lock-fon= tified t :org-license-to-kill t) 3305 3306 (fontified nil font-lock-fontifi= ed t :org-license-to-kill t) 3306 3307 (fontified nil font-lock-fontified t= :org-license-to-kill t) 3307 3319 (fontified nil font-lock-fontified t :or= g-license-to-kill t) 3319 3320 (fontified nil font-lock-fontified t :org-li= cense-to-kill t) 3320 3372 (fontified nil font-lock-fontified t :org-licens= e-to-kill t) 3372 3373 (fontified nil font-lock-fontified t :org-license-to= -kill t) 3373 3388 (fontified nil font-lock-fontified t :org-license-to-kil= l t) 3388 3389 (fontified nil font-lock-fontified t :org-license-to-kill t)= 3389 3391 (fontified nil font-lock-fontified t :org-license-to-kill t) 339= 1 3392 (fontified nil font-lock-fontified t :org-license-to-kill t) 3392 33= 93 (fontified nil font-lock-fontified t :org-license-to-kill t) 3393 3394 (= fontified nil font-lock-fontified t :org-license-to-kill t) 3394 3402 (font= ified nil font-lock-fontified t :org-license-to-kill t) 3402 3403 (fontifie= d nil font-lock-fontified t :org-license-to-kill t) 3403 3426 (fontified ni= l font-lock-fontified t :org-license-to-kill t) 3426 3427 (fontified nil fo= nt-lock-fontified t :org-license-to-kill t) 3427 3430 (fontified nil font-l= ock-fontified t :org-license-to-kill t) 3430 3431 (fontified nil font-lock-= fontified t :org-license-to-kill t) 3431 3587 (fontified nil font-lock-font= ified t :org-license-to-kill t) 3587 3588 (fontified nil font-lock-fontifie= d t :org-license-to-kill t) 3588 3589 (fontified nil font-lock-fontified t = :org-license-to-kill t) 3589 3590 (fontified nil font-lock-fontified t :org= -license-to-kill t) 3590 3591 (fontified nil font-lock-fontified t :org-lic= ense-to-kill t) 3591 3737 (fontified nil font-lock-fontified t :org-license= -to-kill t) 3737 3738 (fontified nil font-lock-fontified t :org-license-to-= kill t) 3738 3739 (fontified nil font-lock-fontified t :org-license-to-kill= t) 3739 3740 (fontified nil font-lock-fontified t :org-license-to-kill t) = 3740 3774 (fontified nil font-lock-fontified t :org-license-to-kill t) 3774= 3775 (fontified nil font-lock-fontified t :org-license-to-kill t) 3775 377= 7 (fontified nil font-lock-fontified t :org-license-to-kill t) 3777 3778 (f= ontified nil font-lock-fontified t :org-license-to-kill t) 3778 3846 (fonti= fied nil font-lock-fontified t :org-license-to-kill t) 3846 3847 (fontified= nil font-lock-fontified t :org-license-to-kill t) 3847 3848 (fontified nil= font-lock-fontified t :org-license-to-kill t) 3848 3849 (fontified nil fon= t-lock-fontified t :org-license-to-kill t) 3849 3861 (fontified nil font-lo= ck-fontified t :org-license-to-kill t) 3861 3862 (fontified nil font-lock-f= ontified t :org-license-to-kill t) 3862 3867 (fontified nil font-lock-fonti= fied t :org-license-to-kill t) 3867 3868 (fontified nil font-lock-fontified= t :org-license-to-kill t) 3868 3895 (fontified nil font-lock-fontified t := org-license-to-kill t) 3895 3896 (fontified nil font-lock-fontified t :org-= license-to-kill t) 3896 3897 (fontified nil font-lock-fontified t :org-lice= nse-to-kill t) 3897 3898 (fontified nil font-lock-fontified t :org-license-= to-kill t) 3898 3920 (fontified nil font-lock-fontified t :org-license-to-k= ill t) 3920 3921 (fontified nil font-lock-fontified t :org-license-to-kill = t) 3921 3968 (fontified nil font-lock-fontified t :org-license-to-kill t) 3= 968 3969 (fontified nil font-lock-fontified t :org-license-to-kill t) 3969 = 3970 (fontified nil font-lock-fontified t :org-license-to-kill t) 3970 3971= (fontified nil font-lock-fontified t :org-license-to-kill t) 3971 3979 (fo= ntified nil font-lock-fontified t :org-license-to-kill t) 3979 3980 (fontif= ied nil font-lock-fontified t :org-license-to-kill t) 3980 3987 (fontified = nil font-lock-fontified t :org-license-to-kill t) 3987 3988 (fontified nil = font-lock-fontified t :org-license-to-kill t) 3988 4000 (fontified nil font= -lock-fontified t :org-license-to-kill t) 4000 4001 (fontified nil font-loc= k-fontified t :org-license-to-kill t) 4001 4014 (fontified nil font-lock-fo= ntified t :org-license-to-kill t) 4014 4015 (fontified nil font-lock-fontif= ied t :org-license-to-kill t) 4015 4040 (fontified nil font-lock-fontified = t :org-license-to-kill t) 4040 4041 (fontified nil font-lock-fontified t :o= rg-license-to-kill t) 4041 4043 (fontified nil font-lock-fontified t :org-l= icense-to-kill t) 4043 4044 (fontified nil font-lock-fontified t :org-licen= se-to-kill t) 4044 4076 (fontified nil font-lock-fontified t :org-license-t= o-kill t) 4076 4077 (fontified nil font-lock-fontified t :org-license-to-ki= ll t) 4077 4080 (fontified nil font-lock-fontified t :org-license-to-kill t= ) 4080 4081 (fontified nil font-lock-fontified t :org-license-to-kill t) 40= 81 4101 (fontified nil font-lock-fontified t :org-license-to-kill t) 4101 4= 102 (fontified nil font-lock-fontified t :org-license-to-kill t) 4102 4115 = (fontified nil font-lock-fontified t :org-license-to-kill t) 4115 4116 (fon= tified nil font-lock-fontified t :org-license-to-kill t) 4116 4204 (fontifi= ed nil font-lock-fontified t :org-license-to-kill t) 4204 4205 (fontified n= il font-lock-fontified t :org-license-to-kill t) 4205 4206 (fontified nil f= ont-lock-fontified t :org-license-to-kill t) 4206 4207 (fontified nil font-= lock-fontified t :org-license-to-kill t) 4207 4216 (fontified nil font-lock= -fontified t :org-license-to-kill t) 4216 4217 (fontified nil font-lock-fon= tified t :org-license-to-kill t) 4217 4258 (fontified nil font-lock-fontifi= ed t :org-license-to-kill t) 4258 4259 (fontified nil font-lock-fontified t= :org-license-to-kill t) 4259 4260 (fontified nil font-lock-fontified t :or= g-license-to-kill t) 4260 4261 (fontified nil font-lock-fontified t :org-li= cense-to-kill t) 4261 4270 (fontified nil font-lock-fontified t :org-licens= e-to-kill t) 4270 4271 (fontified nil font-lock-fontified t :org-license-to= -kill t) 4271 4312 (fontified nil font-lock-fontified t :org-license-to-kil= l t) 4312 4313 (fontified nil font-lock-fontified t :org-license-to-kill t)= 4313 4314 (fontified nil font-lock-fontified t :org-license-to-kill t) 431= 4 4315 (fontified nil font-lock-fontified t :org-license-to-kill t) 4315 43= 26 (fontified nil font-lock-fontified t :org-license-to-kill t) 4326 4327 (= fontified nil font-lock-fontified t :org-license-to-kill t) 4327 4349 (font= ified nil font-lock-fontified t :org-license-to-kill t) 4349 4350 (fontifie= d nil font-lock-fontified t :org-license-to-kill t) 4350 4363 (fontified ni= l font-lock-fontified t :org-license-to-kill t) 4363 4364 (fontified nil fo= nt-lock-fontified t :org-license-to-kill t) 4364 4385 (fontified nil font-l= ock-fontified t :org-license-to-kill t) 4385 4386 (fontified nil font-lock-= fontified t :org-license-to-kill t) 4386 4394 (fontified nil font-lock-font= ified t :org-license-to-kill t) 4394 4395 (fontified nil font-lock-fontifie= d t :org-license-to-kill t) 4395 4447 (fontified nil font-lock-fontified t = :org-license-to-kill t) 4447 4448 (fontified nil font-lock-fontified t :org= -license-to-kill t) 4448 4449 (fontified nil font-lock-fontified t :org-lic= ense-to-kill t) 4449 4450 (fontified nil font-lock-fontified t :org-license= -to-kill t) 4450 4461 (fontified nil font-lock-fontified t :org-license-to-= kill t) 4461 4462 (fontified nil font-lock-fontified t :org-license-to-kill= t) 4462 4484 (fontified nil font-lock-fontified t :org-license-to-kill t) = 4484 4485 (fontified nil font-lock-fontified t :org-license-to-kill t) 4485= 4498 (fontified nil font-lock-fontified t :org-license-to-kill t) 4498 449= 9 (fontified nil font-lock-fontified t :org-license-to-kill t) 4499 4520 (f= ontified nil font-lock-fontified t :org-license-to-kill t) 4520 4521 (fonti= fied nil font-lock-fontified t :org-license-to-kill t) 4521 4529 (fontified= nil font-lock-fontified t :org-license-to-kill t) 4529 4530 (fontified nil= font-lock-fontified t :org-license-to-kill t) 4530 4539 (fontified nil fon= t-lock-fontified t :org-license-to-kill t) 4539 4540 (fontified nil font-lo= ck-fontified t :org-license-to-kill t) 4540 4541 (fontified nil font-lock-f= ontified t :org-license-to-kill t) 4541 4542 (fontified nil font-lock-fonti= fied t :org-license-to-kill t) 4542 4607 (fontified nil font-lock-fontified= t :org-license-to-kill t) 4607 4608 (fontified nil font-lock-fontified t := org-license-to-kill t) 4608 4609 (fontified nil font-lock-fontified t :org-= license-to-kill t) 4609 4610 (fontified nil font-lock-fontified t :org-lice= nse-to-kill t) 4610 4624 (fontified nil font-lock-fontified t :org-license-= to-kill t) 4624 4625 (fontified nil font-lock-fontified t :org-license-to-k= ill t) 4625 4655 (fontified nil font-lock-fontified t :org-license-to-kill = t) 4655 4656 (fontified nil font-lock-fontified t :org-license-to-kill t) 4= 656 4657 (fontified nil font-lock-fontified t :org-license-to-kill t) 4657 = 4658 (fontified nil font-lock-fontified t :org-license-to-kill t) 4658 4674= (fontified nil font-lock-fontified t :org-license-to-kill t) 4674 4675 (fo= ntified nil font-lock-fontified t :org-license-to-kill t) 4675 4677 (fontif= ied nil font-lock-fontified t :org-license-to-kill t) 4677 4678 (fontified = nil font-lock-fontified t :org-license-to-kill t) 4678 4687 (fontified nil = font-lock-fontified t :org-license-to-kill t) 4687 4688 (fontified nil font= -lock-fontified t :org-license-to-kill t) 4688 4689 (fontified nil font-loc= k-fontified t :org-license-to-kill t) 4689 4690 (fontified nil font-lock-fo= ntified t :org-license-to-kill t) 4690 4692 (fontified nil font-lock-fontif= ied t :org-license-to-kill t) 4692 4693 (fontified nil font-lock-fontified = t :org-license-to-kill t) 4693 4695 (fontified nil font-lock-fontified t :o= rg-license-to-kill t) 4695 4699 (fontified nil font-lock-fontified t :org-l= icense-to-kill t) 4699 4700 (fontified nil font-lock-fontified t :org-licen= se-to-kill t) 4700 4705 (fontified nil font-lock-fontified t) 4705 4709 (fo= ntified nil font-lock-fontified t) 4709 4710 (fontified nil rear-nonsticky = t)) :emph-multiline t :for-backend latex :comments nil :tags not-in-toc :pr= iority t :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 (current-window-configuration)) (opt-plist (org-export-proces= s-option-filters org-export-latex-options-plist)) (region-p (org-region-act= ive-p)) (rbeg (and region-p (region-beginning))) (rend (and region-p (regio= n-end))) (subtree-p (if (plist-get opt-plist :ignore-subtree-p) nil (when r= egion-p (save-excursion (goto-char rbeg) (and (org-at-heading-p) (>=3D ... = rend)))))) (opt-plist (setq org-export-opt-plist (if subtree-p (org-export-= add-subtree-options opt-plist rbeg) opt-plist))) (org-export-latex-options-= plist (setq org-export-opt-plist opt-plist)) (org-current-export-dir (or pu= b-dir (org-export-directory :html opt-plist))) (org-current-export-file buf= fer-file-name) (title (or (and subtree-p (org-export-get-title-from-subtree= )) (plist-get opt-plist :title) (and (not (plist-get opt-plist :skip-before= -1st-heading)) (org-export-grab-title-from-buffer)) (and buffer-file-name (= file-name-sans-extension (file-name-nondirectory buffer-file-name))) "No Ti= tle")) (filename (and (not to-buffer) (concat (file-name-as-directory (or p= ub-dir (org-export-directory :LaTeX ext-plist))) (file-name-sans-extension = (or (and subtree-p ...) (file-name-nondirectory ...))) ".tex"))) (filename = (and filename (if (equal (file-truename filename) (file-truename (or buffer= -file-name "dummy.org"))) (concat filename ".tex") filename))) (auto-insert= nil) (TeX-master t) (buffer (if to-buffer (cond ((eq to-buffer (quote stri= ng)) (get-buffer-create "*Org LaTeX Export*")) (t (get-buffer-create to-buf= fer))) (find-file-noselect filename))) (odd org-odd-levels-only) (header (o= rg-export-latex-make-header title opt-plist)) (skip (cond (subtree-p nil) (= region-p nil) (t (plist-get opt-plist :skip-before-1st-heading)))) (text (p= list-get opt-plist :text)) (org-export-preprocess-hook (cons (\` (lambda ni= l (org-set-local (quote org-complex-heading-regexp) (\, org-export-latex-co= mplex-heading-re)))) org-export-preprocess-hook)) (first-lines (if skip "" = (org-export-latex-first-lines opt-plist (if subtree-p (save-excursion (goto= -char rbeg) (point-at-bol 2)) rbeg) (if region-p rend)))) (coding-system (a= nd (boundp (quote buffer-file-coding-system)) buffer-file-coding-system)) (= coding-system-for-write (or org-export-latex-coding-system coding-system)) = (save-buffer-coding-system (or org-export-latex-coding-system coding-system= )) (region (buffer-substring (if region-p (region-beginning) (point-min)) (= if region-p (region-end) (point-max)))) (text (and text (string-match "\\S-= " text) (org-export-preprocess-string text :emph-multiline t :for-backend (= quote latex) :comments nil :tags (plist-get opt-plist :tags) :priority (pli= st-get opt-plist :priority) :footnotes (plist-get opt-plist :footnotes) :dr= awers (plist-get opt-plist :drawers) :timestamps (plist-get opt-plist :time= stamps) :todo-keywords (plist-get opt-plist :todo-keywords) :tasks (plist-g= et opt-plist :tasks) :add-text nil :skip-before-1st-heading skip :select-ta= gs nil :exclude-tags nil :LaTeX-fragments nil))) (string-for-export (org-ex= port-preprocess-string region :emph-multiline t :for-backend (quote latex) = :comments nil :tags (plist-get opt-plist :tags) :priority (plist-get opt-pl= ist :priority) :footnotes (plist-get opt-plist :footnotes) :drawers (plist-= get opt-plist :drawers) :timestamps (plist-get opt-plist :timestamps) :todo= -keywords (plist-get opt-plist :todo-keywords) :tasks (plist-get opt-plist = :tasks) :add-text (if (eq to-buffer (quote string)) nil text) :skip-before-= 1st-heading skip :select-tags (plist-get opt-plist :select-tags) :exclude-t= ags (plist-get opt-plist :exclude-tags) :LaTeX-fragments nil))) (set-buffer= buffer) (erase-buffer) (org-install-letbind) (and (fboundp (quote set-buff= er-file-coding-system)) (set-buffer-file-coding-system coding-system-for-wr= ite)) (unless (or (eq to-buffer (quote string)) body-only) (insert header))= (when (and text (not (eq to-buffer (quote string)))) (insert (org-export-l= atex-content text (quote (lists tables fixed-width keywords))) "\n\n")) (un= less (or skip (string-match "^\\*" first-lines)) (insert first-lines)) (org= -export-latex-global (with-temp-buffer (insert string-for-export) (goto-cha= r (point-min)) (when (re-search-forward "^\\(\\*+\\) " nil t) (let* ((aster= s (length ...)) (level (if odd ... ...))) (setq org-export-latex-add-level = (if odd (1- ...) (1- asters))) (org-export-latex-parse-global level odd))))= ) (unless body-only (insert "\n\\end{document}")) (goto-char (point-min)) (= while (re-search-forward "^[ ]*\\\\item\\([ ]+\\)\\[" nil t) (delete-regi= on (match-beginning 1) (match-end 1))) (goto-char (point-min)) (when (re-se= arch-forward "\\[TABLE-OF-CONTENTS\\]" nil t) (goto-char (point-min)) (whil= e (re-search-forward "\\\\tableofcontents\\>[ ]*\n?" nil t) (replace-match= "")) (goto-char (point-min)) (and (re-search-forward "\\[TABLE-OF-CONTENTS= \\]" nil t) (replace-match "\\tableofcontents" t t))) (goto-char (point-min= )) (while (re-search-forward "^[ ]*\\\\item\\>.*\\(\\\\\\\\\\)[ ]*\\(\n\\= \\label.*\\)*\n\\\\begin" nil t) (delete-region (match-beginning 1) (match-= end 1))) (goto-char (point-min)) (while (re-search-forward "^[ ]*\\\\item\= \>.*\\(\\\\\\\\\\)[ ]*\\(\n\\\\label.*\\)*" nil t) (if (looking-at "[\n ]= +") (replace-match "\n"))) (run-hooks (quote org-export-latex-final-hook)) = (if to-buffer (unless (eq major-mode (quote latex-mode)) (latex-mode)) (sav= e-buffer)) (org-export-latex-fix-inputenc) (run-hooks (quote org-export-lat= ex-after-save-hook)) (goto-char (point-min)) (or (org-export-push-to-kill-r= ing "LaTeX") (message "Exporting to LaTeX...done")) (prog1 (if (eq to-buffe= r (quote string)) (prog1 (buffer-substring (point-min) (point-max)) (kill-b= uffer (current-buffer))) (current-buffer)) (set-window-configuration wcf))) org-export-as-latex(nil nil nil nil nil nil) (let* ((wconfig (current-window-configuration)) (lbuf (org-export-as-late= x arg hidden ext-plist to-buffer body-only pub-dir)) (file (buffer-file-nam= e lbuf)) (base (file-name-sans-extension (buffer-file-name lbuf))) (pdffile= (concat base ".pdf")) (cmds (if (eq org-export-latex-listings (quote minte= d)) (mapcar (lambda (cmd) (replace-regexp-in-string "pdflatex " "pdflatex -= shell-escape " cmd)) org-latex-to-pdf-process) org-latex-to-pdf-process)) (= outbuf (get-buffer-create "*Org PDF LaTeX Output*")) (bibtex-p (with-curren= t-buffer lbuf (save-excursion (goto-char (point-min)) (re-search-forward "\= \\\bibliography{" nil t)))) cmd output-dir errors) (with-current-buffer out= buf (erase-buffer)) (message (concat "Processing LaTeX file " file "...")) = (setq output-dir (file-name-directory file)) (with-current-buffer lbuf (sav= e-excursion (if (and cmds (symbolp cmds)) (funcall cmds (shell-quote-argume= nt file)) (while cmds (setq cmd (pop cmds)) (while (string-match "%b" cmd) = (setq cmd (replace-match ... t t cmd))) (while (string-match "%f" cmd) (set= q cmd (replace-match ... t t cmd))) (while (string-match "%o" cmd) (setq cm= d (replace-match ... t t cmd))) (shell-command cmd outbuf))))) (message (co= ncat "Processing LaTeX file " file "...done")) (setq errors (org-export-lat= ex-get-error outbuf)) (if (not (file-exists-p pdffile)) (error (concat "PDF= file " pdffile " was not produced" (if errors (concat ":" errors "") "")))= (set-window-configuration wconfig) (when org-export-pdf-remove-logfiles (d= olist (ext org-export-pdf-logfiles) (setq file (concat base "." ext)) (and = (file-exists-p file) (delete-file file)))) (message (concat "Exporting to P= DF...done" (if errors (concat ", with some errors:" errors) ""))) pdffile)) org-export-as-pdf(nil) (let ((pdffile (org-export-as-pdf arg))) (if pdffile (progn (org-open-fil= e pdffile) (when org-export-kill-product-buffer-when-displayed (kill-buffer= (find-buffer-visiting (concat (file-name-sans-extension ...) ".tex"))))) (= error "PDF file was not produced"))) org-export-as-pdf-and-open(nil) call-interactively(org-export-as-pdf-and-open) (if (and bg (nth 2 ass) (not (buffer-base-buffer)) (not (org-region-activ= e-p))) (let ((p (start-process (concat "Exporting " (file-name-nondirectory= (buffer-file-name))) "*Org Processes*" (expand-file-name invocation-name i= nvocation-directory) "-batch" "-l" user-init-file "--eval" "(require 'org-e= xp)" "--eval" "(setq org-wait .2)" (buffer-file-name) "-f" (symbol-name (nt= h 1 ass))))) (set-process-sentinel p (quote org-export-process-sentinel)) (= message "Background process \"%s\": started" p)) (if subtree-p (progn (org-= mark-subtree) (org-activate-mark))) (call-interactively (nth 1 ass)) (when = (and bpos (get-buffer-window cbuf)) (let ((cw (selected-window))) (select-w= indow (get-buffer-window cbuf)) (goto-char cpos) (deactivate-mark) (select-= window cw)))) (let* ((bg (org-xor (equal arg (quote (16))) org-export-run-in-background= )) (subtree-p (or (org-region-active-p) (eq org-export-initial-scope (quote= subtree)))) (help "[t] insert the export option template\n[v] limit ex= port 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 buffe= r\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 tem= porary buffer\n[p] export as LaTeX and process to PDF [d] ... an= d open PDF file\n\n[D] export as DocBook [V] export as DocBook, process t= o 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 us= ing 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 combi= ned file\n\n[F] publish current file [P] publish current project\n= [X] publish a project... [E] publish every projects") (cmds (quote= ((116 org-insert-export-options-template nil) (118 org-export-visible nil)= (97 org-export-as-ascii t) (65 org-export-as-ascii-to-buffer t) (110 org-e= xport-as-latin1 t) (78 org-export-as-latin1-to-buffer t) (117 org-export-as= -utf8 t) (85 org-export-as-utf8-to-buffer t) (104 org-export-as-html t) (98= org-export-as-html-and-open t) (72 org-export-as-html-to-buffer nil) (82 o= rg-export-region-as-html nil) (120 org-export-as-xoxo t) (103 org-export-ge= neric t) (68 org-export-as-docbook t) (86 org-export-as-docbook-pdf-and-ope= n t) (111 org-export-as-odt t) (79 org-export-as-odt-and-open t) (106 org-e= xport-as-taskjuggler t) (74 org-export-as-taskjuggler-and-open t) (109 org-= export-as-freemind t) (108 org-export-as-latex t) (112 org-export-as-pdf t)= (100 org-export-as-pdf-and-open t) (76 org-export-as-latex-to-buffer nil) = (105 org-export-icalendar-this-file t) (73 org-export-icalendar-all-agenda-= files t) (99 org-export-icalendar-combine-agenda-files t) (70 org-publish-c= urrent-file t) (80 org-publish-current-project t) (88 org-publish t) (69 or= g-publish-all t)))) r1 r2 ass (cpos (point)) (cbuf (current-buffer)) bpos) = (save-excursion (save-window-excursion (if subtree-p (message "Export subtr= ee: ") (message "Export buffer: ")) (delete-other-windows) (with-output-to-= temp-buffer "*Org Export/Publishing Help*" (princ help)) (org-fit-window-to= -buffer (get-buffer-window "*Org Export/Publishing Help*")) (while (eq (set= q r1 (read-char-exclusive)) 49) (cond (subtree-p (setq subtree-p nil) (mess= age "Export buffer: ")) ((not subtree-p) (setq subtree-p t) (setq bpos (poi= nt)) (message "Export subtree: ")))) (when (eq r1 32) (let ((case-fold-sear= ch t) (end (save-excursion ... ...))) (outline-next-heading) (if (re-search= -backward "^[ ]+\\(:latex_class:\\|:export_title:\\|:export_file_name:\\)[= ]+\\S-" end t) (progn (org-back-to-heading t) (setq subtree-p t) (setq bp= os ...) (message "Select command (for subtree): ") (setq r1 ...)) (error "N= o enclosing node with LaTeX_CLASS or EXPORT_TITLE or EXPORT_FILE_NAME")))))= ) (if (fboundp (quote redisplay)) (redisplay)) (and bpos (goto-char bpos)) = (setq r2 (if (< r1 27) (+ r1 96) r1)) (unless (setq ass (assq r2 cmds)) (er= ror "No command associated with key %c" r1)) (if (and bg (nth 2 ass) (not (= buffer-base-buffer)) (not (org-region-active-p))) (let ((p (start-process (= concat "Exporting " (file-name-nondirectory ...)) "*Org Processes*" (expand= -file-name invocation-name invocation-directory) "-batch" "-l" user-init-fi= le "--eval" "(require 'org-exp)" "--eval" "(setq org-wait .2)" (buffer-file= -name) "-f" (symbol-name (nth 1 ass))))) (set-process-sentinel p (quote org= -export-process-sentinel)) (message "Background process \"%s\": started" p)= ) (if subtree-p (progn (org-mark-subtree) (org-activate-mark))) (call-inter= actively (nth 1 ass)) (when (and bpos (get-buffer-window cbuf)) (let ((cw (= selected-window))) (select-window (get-buffer-window cbuf)) (goto-char cpos= ) (deactivate-mark) (select-window cw))))) org-export(nil) call-interactively(org-export nil nil) #+end_src Best regards, Seb --=20 Sebastien Vauban