From mboxrd@z Thu Jan 1 00:00:00 1970 From: Andreas Leha Subject: Re: flet / my-filt problem Date: Tue, 31 Jul 2012 00:42:35 +0200 Message-ID: <87fw8898h0.fsf@med.uni-goettingen.de> References: <87k3xk9ahb.fsf@med.uni-goettingen.de> <87vch4j3cj.fsf@gmx.com> Mime-Version: 1.0 Content-Type: text/plain Content-Transfer-Encoding: quoted-printable Return-path: Received: from eggs.gnu.org ([208.118.235.92]:35904) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1SvyhB-00054M-JQ for emacs-orgmode@gnu.org; Mon, 30 Jul 2012 18:44:16 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Svyh6-0004uU-EG for emacs-orgmode@gnu.org; Mon, 30 Jul 2012 18:44:13 -0400 Received: from plane.gmane.org ([80.91.229.3]:36171) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Svyh5-0004uP-VM for emacs-orgmode@gnu.org; Mon, 30 Jul 2012 18:44:08 -0400 Received: from list by plane.gmane.org with local (Exim 4.69) (envelope-from ) id 1Svyh3-0005T6-TX for emacs-orgmode@gnu.org; Tue, 31 Jul 2012 00:44:05 +0200 Received: from p57b6529a.dip.t-dialin.net ([87.182.82.154]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Tue, 31 Jul 2012 00:44:05 +0200 Received: from andreas.leha by p57b6529a.dip.t-dialin.net with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Tue, 31 Jul 2012 00:44:05 +0200 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@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org Eric Schulte writes: > Andreas Leha writes: > >> Hi all, >> >> with the current HEAD (commit 0202adb1c02908a75a7845438381e40d811fd99a) >> from master I get an error during the export of >> one of my files complaining about an undefined my-filt function. >> >> Replacing org-flet with flet in ob-comint.el (line 78) introduces a >> compiler warning, but solves the problem. >> >> I am on emacs 24.1.50.1. >> > > Hi Andreas, > > Does replacing `org-flet' in line 78 of ob-comint.el with `org-labels' > solve this problem? > > Thanks, Hi Eric, thanks for the quick response. But org-labels does not solve the problems for me. Backtrace is attached. Don't know if this is interesting... Regards, Andreas PS: the backtrace Debugger entered--Lisp error: (void-function my-filt) my-filt("") run-hook-with-args(my-filt "") comint-send-input() inferior-ess-send-input() org-babel-R-evaluate-session("*R*" "totest <- colnames(P_fu)\ntotest <- t= otest[sapply(totest,\n function(param) !(class(P_fu[= [param]])[1] =3D=3D \"Date\"))]\ntotest <- totest[sapply(totest,\n = function(param) !(is.factor(P_fu[[param]]) &&\n = !is.ordered(P_fu[[param]])))]\ntotest <- totes= t[sapply(totest,\n function(param) !is.character(P_f= u[[param]]))]\ntotest <- totest[totest !=3D \"time\"]\ntotest <- totest[tot= est !=3D \"age\"]\n\nP_fu_nofu <- P[P$code %in% P_fu$code,]\n## reorder\nfu= _order <- sapply(P_fu$code, function(x) which(P_fu_nofu$code =3D=3D x))\nP_= fu_nofu <- P_fu_nofu[fu_order,]\nfu_comp <- t(t(sapply(totest,\n = function(param) testfun(P_fu_nofu[[param]],\n = P_fu[[param]],\n = use.t.test=3D(par_shape[param] =3D=3D \"normal\")))))\n\nttt = <- fu_comp\nrownames(ttt) <- nameMap.NameToEnglish[rownames(ttt)]\n\n## add= descriptive values\nttt <- data.frame(ttt,\n t1=3Dunlist(= sapply(totest,\n function(param) calc_descr(P_fu_nofu[[p= aram]], param)[2])),\n t2=3Dunlist(sapply(totest,\n = function(param) calc_descr(P_fu[[param]], param)[2])))\n\n##tt= t <- apply(t(t(ttt[!is.na(ttt[,1]),])), 1:2, prettyPvalues, digits=3D2)\ntt= t[,1] <- prettyPvalues(ttt[,1], digits=3D2)\ncolnames(ttt)[1] <- \"p-Value = (paired)\"\n\n## strip NA p-Values\nttt <- ttt[!is.na(ttt[,1]),]\n\nprint(a= scii(ttt, header=3DTRUE, include.colnames=3DTRUE, include.rownames=3DTRUE),= type=3D\"org\")" output ("silent" "org" "output" "org" "output" "replace")= t t) org-babel-R-evaluate("*R*" "totest <- colnames(P_fu)\ntotest <- totest[sa= pply(totest,\n function(param) !(class(P_fu[[param]]= )[1] =3D=3D \"Date\"))]\ntotest <- totest[sapply(totest,\n = function(param) !(is.factor(P_fu[[param]]) &&\n = !is.ordered(P_fu[[param]])))]\ntotest <- totest[sapply= (totest,\n function(param) !is.character(P_fu[[param= ]]))]\ntotest <- totest[totest !=3D \"time\"]\ntotest <- totest[totest !=3D= \"age\"]\n\nP_fu_nofu <- P[P$code %in% P_fu$code,]\n## reorder\nfu_order <= - sapply(P_fu$code, function(x) which(P_fu_nofu$code =3D=3D x))\nP_fu_nofu = <- P_fu_nofu[fu_order,]\nfu_comp <- t(t(sapply(totest,\n = function(param) testfun(P_fu_nofu[[param]],\n = P_fu[[param]],\n = use.t.test=3D(par_shape[param] =3D=3D \"normal\")))))\n\nttt <- fu_co= mp\nrownames(ttt) <- nameMap.NameToEnglish[rownames(ttt)]\n\n## add descrip= tive values\nttt <- data.frame(ttt,\n t1=3Dunlist(sapply(t= otest,\n function(param) calc_descr(P_fu_nofu[[param]], = param)[2])),\n t2=3Dunlist(sapply(totest,\n = function(param) calc_descr(P_fu[[param]], param)[2])))\n\n##ttt <- app= ly(t(t(ttt[!is.na(ttt[,1]),])), 1:2, prettyPvalues, digits=3D2)\nttt[,1] <-= prettyPvalues(ttt[,1], digits=3D2)\ncolnames(ttt)[1] <- \"p-Value (paired)= \"\n\n## strip NA p-Values\nttt <- ttt[!is.na(ttt[,1]),]\n\nprint(ascii(ttt= , header=3DTRUE, include.colnames=3DTRUE, include.rownames=3DTRUE), type=3D= \"org\")" output ("silent" "org" "output" "org" "output" "replace") t t) org-babel-execute:R("totest <- colnames(P_fu)\ntotest <- totest[sapply(to= test,\n function(param) !(class(P_fu[[param]])[1] = =3D=3D \"Date\"))]\ntotest <- totest[sapply(totest,\n = function(param) !(is.factor(P_fu[[param]]) &&\n = !is.ordered(P_fu[[param]])))]\ntotest <- totest[sapply(tote= st,\n function(param) !is.character(P_fu[[param]]))]= \ntotest <- totest[totest !=3D \"time\"]\ntotest <- totest[totest !=3D \"ag= e\"]\n\nP_fu_nofu <- P[P$code %in% P_fu$code,]\n## reorder\nfu_order <- sap= ply(P_fu$code, function(x) which(P_fu_nofu$code =3D=3D x))\nP_fu_nofu <- P_= fu_nofu[fu_order,]\nfu_comp <- t(t(sapply(totest,\n fu= nction(param) testfun(P_fu_nofu[[param]],\n = P_fu[[param]],\n = use.t.test=3D(par_shape[param] =3D=3D \"normal\")))))\n\nttt <- fu_comp\nr= ownames(ttt) <- nameMap.NameToEnglish[rownames(ttt)]\n\n## add descriptive = values\nttt <- data.frame(ttt,\n t1=3Dunlist(sapply(totest= ,\n function(param) calc_descr(P_fu_nofu[[param]], param= )[2])),\n t2=3Dunlist(sapply(totest,\n = function(param) calc_descr(P_fu[[param]], param)[2])))\n\n##ttt <- apply(t(= t(ttt[!is.na(ttt[,1]),])), 1:2, prettyPvalues, digits=3D2)\nttt[,1] <- pret= tyPvalues(ttt[,1], digits=3D2)\ncolnames(ttt)[1] <- \"p-Value (paired)\"\n\= n## strip NA p-Values\nttt <- ttt[!is.na(ttt[,1]),]\n\nprint(ascii(ttt, hea= der=3DTRUE, include.colnames=3DTRUE, include.rownames=3DTRUE), type=3D\"org= \")" ((:colname-names) (:rowname-names) (:result-params "silent" "org" "out= put" "org" "output" "replace") (:result-type . output) (:comments . "") (:s= hebang . "") (:cache . "no") (:padline . "") (:noweb . "yes") (:tangle . "n= o") (:exports . "code") (:results . "silent org output") (:colname-names) (= :rowname-names) (:result-params "org" "output" "replace") (:result-type . o= utput) (:colnames . "yes") (:rownames . "yes") (:session . "*R*") (:padnewl= ine . "yes") (:hlines . "no"))) org-babel-execute-src-block(nil nil ((:results . "silent"))) org-babel-ref-resolve("follow_up_comparison_paired()") org-babel-ref-parse("results=3Dfollow_up_comparison_paired()") #[(el) "A:\203 .A\207\301A!\207" [el org-babel-ref-parse] 2]((:var . "= results=3Dfollow_up_comparison_paired()")) mapcar(#[(el) "A:\203 .A\207\301A!\207" [el org-babel-ref-parse] 2] ((= :var . "results=3Dfollow_up_comparison_paired()"))) org-babel-process-params(((:comments . "") (:shebang . "") (:cache . "no"= ) (:padline . "") (:noweb . "yes") (:tangle . "no") (:exports . "none") (:r= esults . "silent") (:var . "results=3Dfollow_up_comparison_paired()") (:hli= nes . "no") (:padnewline . "yes") (:session . "*R*") (:rownames . "yes") (:= colnames . "yes"))) org-babel-exp-results(("emacs-lisp" "results" ((:comments . "") (:shebang= . "") (:cache . "no") (:padline . "") (:noweb . "yes") (:tangle . "no") (:= exports . "none") (:results . "silent") (:var . "results=3Dfollow_up_compar= ison_paired()") (:colnames . "yes") (:rownames . "yes") (:session . "*R*") = (:padnewline . "yes") (:hlines . "no")) "" nil 0) lob silent) #[nil "\303\304\3058\"A\211.\205.=00 \306\232?\205.=00\307\n\310#)\207"= [info session type assoc :session 2 "none" org-babel-exp-results silent] 5= ]() org-babel-exp-do-export(("emacs-lisp" "results" ((:comments . "") (:sheba= ng . "") (:cache . "no") (:padline . "") (:noweb . "yes") (:tangle . "no") = (:exports . "none") (:results . "silent") (:var . "results=3Dfollow_up_comp= arison_paired()") (:colnames . "yes") (:rownames . "yes") (:session . "*R*"= ) (:padnewline . "yes") (:hlines . "no")) "" nil 0) lob) org-babel-exp-non-block-elements(25187 #) #[(pair) "\211.A@)\n=0B\"\207" [pair x start end] 4]((src org-babel-exp-= non-block-elements)) mapcar(#[(pair) "\211.A@)\n=0B\"\207" [pair x start end] 4] ((src org-ba= bel-exp-non-block-elements))) #[(start end) "\301\302\"\207" [org-export-interblocks mapcar #[(pair) "= \211.A@)\n=0B\"\207" [pair x start end] 4]] 3](25187 #) org-export-blocks-preprocess() (let ((org-current-export-file buf)) (org-export-blocks-preprocess)) (if noexpand nil (org-export-expand-include-keyword) (let ((org-current-e= xport-file buf)) (org-export-blocks-preprocess))) (unless noexpand (org-export-expand-include-keyword) (let ((org-current-e= xport-file buf)) (org-export-blocks-preprocess))) (progn (unless noexpand (org-export-expand-include-keyword) (let ((org-cu= rrent-export-file buf)) (org-export-blocks-preprocess))) (goto-char (point-= min)) (let ((org-export-current-backend backend)) (run-hooks (quote org-exp= ort-before-parsing-hook))) (org-element-parse-buffer nil visible-only)) (let ((buffer-invisibility-spec nil)) (org-clone-local-variables --origin= al-buffer "^\\(org-\\|orgtbl-\\|major-mode$\\|outline-\\(regexp\\|level\\)$= \\)") (insert --buffer-string) (mapc (lambda (ov) (move-overlay ov (- (over= lay-start ov) --offset) (- (overlay-end ov) --offset) (current-buffer))) --= overlays) (goto-char (point-min)) (progn (unless noexpand (org-export-expan= d-include-keyword) (let ((org-current-export-file buf)) (org-export-blocks-= preprocess))) (goto-char (point-min)) (let ((org-export-current-backend bac= kend)) (run-hooks (quote org-export-before-parsing-hook))) (org-element-par= se-buffer nil visible-only))) (progn (let ((buffer-invisibility-spec nil)) (org-clone-local-variables -= -original-buffer "^\\(org-\\|orgtbl-\\|major-mode$\\|outline-\\(regexp\\|le= vel\\)$\\)") (insert --buffer-string) (mapc (lambda (ov) (move-overlay ov (= - (overlay-start ov) --offset) (- (overlay-end ov) --offset) (current-buffe= r))) --overlays) (goto-char (point-min)) (progn (unless noexpand (org-expor= t-expand-include-keyword) (let ((org-current-export-file buf)) (org-export-= blocks-preprocess))) (goto-char (point-min)) (let ((org-export-current-back= end backend)) (run-hooks (quote org-export-before-parsing-hook))) (org-elem= ent-parse-buffer nil visible-only)))) (unwind-protect (progn (let ((buffer-invisibility-spec nil)) (org-clone-l= ocal-variables --original-buffer "^\\(org-\\|orgtbl-\\|major-mode$\\|outlin= e-\\(regexp\\|level\\)$\\)") (insert --buffer-string) (mapc (lambda (ov) (m= ove-overlay ov (- (overlay-start ov) --offset) (- (overlay-end ov) --offset= ) (current-buffer))) --overlays) (goto-char (point-min)) (progn (unless noe= xpand (org-export-expand-include-keyword) (let ((org-current-export-file bu= f)) (org-export-blocks-preprocess))) (goto-char (point-min)) (let ((org-exp= ort-current-backend backend)) (run-hooks (quote org-export-before-parsing-h= ook))) (org-element-parse-buffer nil visible-only)))) (and (buffer-name tem= p-buffer) (kill-buffer temp-buffer))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (let= ((buffer-invisibility-spec nil)) (org-clone-local-variables --original-buf= fer "^\\(org-\\|orgtbl-\\|major-mode$\\|outline-\\(regexp\\|level\\)$\\)") = (insert --buffer-string) (mapc (lambda (ov) (move-overlay ov (- ... --offse= t) (- ... --offset) (current-buffer))) --overlays) (goto-char (point-min)) = (progn (unless noexpand (org-export-expand-include-keyword) (let (...) (org= -export-blocks-preprocess))) (goto-char (point-min)) (let ((org-export-curr= ent-backend backend)) (run-hooks (quote org-export-before-parsing-hook))) (= org-element-parse-buffer nil visible-only)))) (and (buffer-name temp-buffer= ) (kill-buffer temp-buffer)))) (with-current-buffer temp-buffer (unwind-protect (progn (let ((buffer-inv= isibility-spec nil)) (org-clone-local-variables --original-buffer "^\\(org-= \\|orgtbl-\\|major-mode$\\|outline-\\(regexp\\|level\\)$\\)") (insert --buf= fer-string) (mapc (lambda (ov) (move-overlay ov (- ... --offset) (- ... --o= ffset) (current-buffer))) --overlays) (goto-char (point-min)) (progn (unles= s noexpand (org-export-expand-include-keyword) (let (...) (org-export-block= s-preprocess))) (goto-char (point-min)) (let ((org-export-current-backend b= ackend)) (run-hooks (quote org-export-before-parsing-hook))) (org-element-p= arse-buffer nil visible-only)))) (and (buffer-name temp-buffer) (kill-buffe= r temp-buffer)))) (let ((temp-buffer (generate-new-buffer " *temp*"))) (with-current-buffer= temp-buffer (unwind-protect (progn (let ((buffer-invisibility-spec nil)) (= org-clone-local-variables --original-buffer "^\\(org-\\|orgtbl-\\|major-mod= e$\\|outline-\\(regexp\\|level\\)$\\)") (insert --buffer-string) (mapc (lam= bda (ov) (move-overlay ov ... ... ...)) --overlays) (goto-char (point-min))= (progn (unless noexpand (org-export-expand-include-keyword) (let ... ...))= (goto-char (point-min)) (let (...) (run-hooks ...)) (org-element-parse-buf= fer nil visible-only)))) (and (buffer-name temp-buffer) (kill-buffer temp-b= uffer))))) (with-temp-buffer (let ((buffer-invisibility-spec nil)) (org-clone-local-= variables --original-buffer "^\\(org-\\|orgtbl-\\|major-mode$\\|outline-\\(= regexp\\|level\\)$\\)") (insert --buffer-string) (mapc (lambda (ov) (move-o= verlay ov (- (overlay-start ov) --offset) (- (overlay-end ov) --offset) (cu= rrent-buffer))) --overlays) (goto-char (point-min)) (progn (unless noexpand= (org-export-expand-include-keyword) (let ((org-current-export-file buf)) (= org-export-blocks-preprocess))) (goto-char (point-min)) (let ((org-export-c= urrent-backend backend)) (run-hooks (quote org-export-before-parsing-hook))= ) (org-element-parse-buffer nil visible-only)))) (let ((--original-buffer (current-buffer)) (--offset (1- (point-min))) (-= -buffer-string (buffer-string)) (--overlays (mapcar (quote copy-overlay) (o= verlays-in (point-min) (point-max))))) (with-temp-buffer (let ((buffer-invi= sibility-spec nil)) (org-clone-local-variables --original-buffer "^\\(org-\= \|orgtbl-\\|major-mode$\\|outline-\\(regexp\\|level\\)$\\)") (insert --buff= er-string) (mapc (lambda (ov) (move-overlay ov (- (overlay-start ov) --offs= et) (- (overlay-end ov) --offset) (current-buffer))) --overlays) (goto-char= (point-min)) (progn (unless noexpand (org-export-expand-include-keyword) (= let ((org-current-export-file buf)) (org-export-blocks-preprocess))) (goto-= char (point-min)) (let ((org-export-current-backend backend)) (run-hooks (q= uote org-export-before-parsing-hook))) (org-element-parse-buffer nil visibl= e-only))))) (org-export-with-current-buffer-copy (unless noexpand (org-export-expand-= include-keyword) (let ((org-current-export-file buf)) (org-export-blocks-pr= eprocess))) (goto-char (point-min)) (let ((org-export-current-backend backe= nd)) (run-hooks (quote org-export-before-parsing-hook))) (org-element-parse= -buffer nil visible-only)) (let ((buf (or (buffer-file-name (buffer-base-buffer)) (current-buffer)))= ) (org-export-with-current-buffer-copy (unless noexpand (org-export-expand-= include-keyword) (let ((org-current-export-file buf)) (org-export-blocks-pr= eprocess))) (goto-char (point-min)) (let ((org-export-current-backend backe= nd)) (run-hooks (quote org-export-before-parsing-hook))) (org-element-parse= -buffer nil visible-only))) (let ((info (org-export-install-filters (org-export-get-environment backe= nd subtreep ext-plist))) (tree (let ((buf (or (buffer-file-name ...) (curre= nt-buffer)))) (org-export-with-current-buffer-copy (unless noexpand (org-ex= port-expand-include-keyword) (let (...) (org-export-blocks-preprocess))) (g= oto-char (point-min)) (let ((org-export-current-backend backend)) (run-hook= s (quote org-export-before-parsing-hook))) (org-element-parse-buffer nil vi= sible-only))))) (setq tree (org-export-filter-apply-functions (plist-get in= fo :filter-parse-tree) tree info)) (setq info (org-combine-plists info (org= -export-collect-tree-properties tree info))) (let* ((body (org-element-norm= alize-string (org-export-data tree info))) (template (cdr (assq (quote temp= late) (plist-get info :translate-alist)))) (output (org-export-filter-apply= -functions (plist-get info :filter-final-output) (if (or (not ...) body-onl= y) body (funcall template body info)) info))) (when org-export-copy-to-kill= -ring (org-kill-new output)) output)) (save-restriction (cond ((org-region-active-p) (narrow-to-region (region-= beginning) (region-end))) (subtreep (org-narrow-to-subtree) (goto-char (poi= nt-min)) (forward-line) (narrow-to-region (point) (point-max)))) (let ((inf= o (org-export-install-filters (org-export-get-environment backend subtreep = ext-plist))) (tree (let ((buf (or ... ...))) (org-export-with-current-buffe= r-copy (unless noexpand (org-export-expand-include-keyword) (let ... ...)) = (goto-char (point-min)) (let (...) (run-hooks ...)) (org-element-parse-buff= er nil visible-only))))) (setq tree (org-export-filter-apply-functions (pli= st-get info :filter-parse-tree) tree info)) (setq info (org-combine-plists = info (org-export-collect-tree-properties tree info))) (let* ((body (org-ele= ment-normalize-string (org-export-data tree info))) (template (cdr (assq (q= uote template) (plist-get info :translate-alist)))) (output (org-export-fil= ter-apply-functions (plist-get info :filter-final-output) (if (or ... body-= only) body (funcall template body info)) info))) (when org-export-copy-to-k= ill-ring (org-kill-new output)) output))) (save-excursion (save-restriction (cond ((org-region-active-p) (narrow-to= -region (region-beginning) (region-end))) (subtreep (org-narrow-to-subtree)= (goto-char (point-min)) (forward-line) (narrow-to-region (point) (point-ma= x)))) (let ((info (org-export-install-filters (org-export-get-environment b= ackend subtreep ext-plist))) (tree (let ((buf ...)) (org-export-with-curren= t-buffer-copy (unless noexpand ... ...) (goto-char ...) (let ... ...) (org-= element-parse-buffer nil visible-only))))) (setq tree (org-export-filter-ap= ply-functions (plist-get info :filter-parse-tree) tree info)) (setq info (o= rg-combine-plists info (org-export-collect-tree-properties tree info))) (le= t* ((body (org-element-normalize-string (org-export-data tree info))) (temp= late (cdr (assq ... ...))) (output (org-export-filter-apply-functions (plis= t-get info :filter-final-output) (if ... body ...) info))) (when org-export= -copy-to-kill-ring (org-kill-new output)) output)))) org-export-as(e-latex (subtree buffer) nil nil nil nil) (let ((out (org-export-as backend subtreep visible-only body-only ext-pli= st noexpand))) (with-temp-buffer (insert out) (let ((coding-system-for-writ= e org-export-coding-system)) (write-file file)))) org-export-to-file(e-latex "/home/andreas/work/mannil/charcot_marie_tooth= .tex" (subtree buffer) nil nil nil) (let ((outfile (org-export-output-file-name ".tex" subtreep pub-dir))) (o= rg-export-to-file (quote e-latex) outfile subtreep visible-only body-only e= xt-plist)) org-e-latex-export-to-latex((subtree buffer) nil nil nil nil) (org-e-latex-compile (org-e-latex-export-to-latex subtreep visible-only b= ody-only ext-plist pub-dir)) org-e-latex-export-to-pdf((subtree buffer) nil nil) (org-open-file (org-e-latex-export-to-pdf (memq (quote subtree) optns) (m= emq (quote visible) optns) (memq (quote body) optns))) (cond ((eql --cl-var-- (quote 113)) nil) ((cl-member --cl-var-- (quote (6= 5 78 85))) (org-e-ascii-export-as-ascii (memq (quote subtree) optns) (memq = (quote visible) optns) (memq (quote body) optns) (\` (:ascii-charset (\, (c= ase raw-key (65 ...) (78 ...) (t ...))))))) ((cl-member --cl-var-- (quote (= 97 110 117))) (org-e-ascii-export-to-ascii (memq (quote subtree) optns) (me= mq (quote visible) optns) (memq (quote body) optns) (\` (:ascii-charset (\,= (case raw-key (97 ...) (110 ...) (t ...))))))) ((eql --cl-var-- (quote 76)= ) (org-e-latex-export-as-latex (memq (quote subtree) optns) (memq (quote vi= sible) optns) (memq (quote body) optns))) ((eql --cl-var-- (quote 108)) (or= g-e-latex-export-to-latex (memq (quote subtree) optns) (memq (quote visible= ) optns) (memq (quote body) optns))) ((eql --cl-var-- (quote 112)) (org-e-l= atex-export-to-pdf (memq (quote subtree) optns) (memq (quote visible) optns= ) (memq (quote body) optns))) ((eql --cl-var-- (quote 100)) (org-open-file = (org-e-latex-export-to-pdf (memq (quote subtree) optns) (memq (quote visibl= e) optns) (memq (quote body) optns)))) ((eql --cl-var-- (quote 72)) (org-e-= html-export-as-html (memq (quote subtree) optns) (memq (quote visible) optn= s) (memq (quote body) optns))) ((eql --cl-var-- (quote 104)) (org-e-html-ex= port-to-html (memq (quote subtree) optns) (memq (quote visible) optns) (mem= q (quote body) optns))) ((eql --cl-var-- (quote 98)) (org-open-file (org-e-= html-export-to-html (memq (quote subtree) optns) (memq (quote visible) optn= s) (memq (quote body) optns)))) ((eql --cl-var-- (quote 111)) (org-e-odt-ex= port-to-odt (memq (quote subtree) optns) (memq (quote visible) optns) (memq= (quote body) optns))) ((eql --cl-var-- (quote 79)) (org-open-file (org-e-o= dt-export-to-odt (memq (quote subtree) optns) (memq (quote visible) optns) = (memq (quote body) optns)))) ((eql --cl-var-- (quote 70)) (org-e-publish-cu= rrent-file (memq (quote force) optns))) ((eql --cl-var-- (quote 80)) (org-e= -publish-current-project (memq (quote force) optns))) ((eql --cl-var-- (quo= te 88)) (let ((project (assoc (org-icompleting-read "Publish project: " org= -e-publish-project-alist nil t) org-e-publish-project-alist))) (org-e-publi= sh project (memq (quote force) optns)))) ((eql --cl-var-- (quote 69)) (org-= e-publish-all (memq (quote force) optns))) (t (error "No command associated= with key %s" (char-to-string raw-key)))) (let ((--cl-var-- (if (< raw-key 27) (+ raw-key 96) raw-key))) (cond ((eq= l --cl-var-- (quote 113)) nil) ((cl-member --cl-var-- (quote (65 78 85))) (= org-e-ascii-export-as-ascii (memq (quote subtree) optns) (memq (quote visib= le) optns) (memq (quote body) optns) (\` (:ascii-charset (\, (case raw-key = ... ... ...)))))) ((cl-member --cl-var-- (quote (97 110 117))) (org-e-ascii= -export-to-ascii (memq (quote subtree) optns) (memq (quote visible) optns) = (memq (quote body) optns) (\` (:ascii-charset (\, (case raw-key ... ... ...= )))))) ((eql --cl-var-- (quote 76)) (org-e-latex-export-as-latex (memq (quo= te subtree) optns) (memq (quote visible) optns) (memq (quote body) optns)))= ((eql --cl-var-- (quote 108)) (org-e-latex-export-to-latex (memq (quote su= btree) optns) (memq (quote visible) optns) (memq (quote body) optns))) ((eq= l --cl-var-- (quote 112)) (org-e-latex-export-to-pdf (memq (quote subtree) = optns) (memq (quote visible) optns) (memq (quote body) optns))) ((eql --cl-= var-- (quote 100)) (org-open-file (org-e-latex-export-to-pdf (memq (quote s= ubtree) optns) (memq (quote visible) optns) (memq (quote body) optns)))) ((= eql --cl-var-- (quote 72)) (org-e-html-export-as-html (memq (quote subtree)= optns) (memq (quote visible) optns) (memq (quote body) optns))) ((eql --cl= -var-- (quote 104)) (org-e-html-export-to-html (memq (quote subtree) optns)= (memq (quote visible) optns) (memq (quote body) optns))) ((eql --cl-var-- = (quote 98)) (org-open-file (org-e-html-export-to-html (memq (quote subtree)= optns) (memq (quote visible) optns) (memq (quote body) optns)))) ((eql --c= l-var-- (quote 111)) (org-e-odt-export-to-odt (memq (quote subtree) optns) = (memq (quote visible) optns) (memq (quote body) optns))) ((eql --cl-var-- (= quote 79)) (org-open-file (org-e-odt-export-to-odt (memq (quote subtree) op= tns) (memq (quote visible) optns) (memq (quote body) optns)))) ((eql --cl-v= ar-- (quote 70)) (org-e-publish-current-file (memq (quote force) optns))) (= (eql --cl-var-- (quote 80)) (org-e-publish-current-project (memq (quote for= ce) optns))) ((eql --cl-var-- (quote 88)) (let ((project (assoc (org-icompl= eting-read "Publish project: " org-e-publish-project-alist nil t) org-e-pub= lish-project-alist))) (org-e-publish project (memq (quote force) optns)))) = ((eql --cl-var-- (quote 69)) (org-e-publish-all (memq (quote force) optns))= ) (t (error "No command associated with key %s" (char-to-string raw-key))))) (case (if (< raw-key 27) (+ raw-key 96) raw-key) (113 nil) ((65 78 85) (o= rg-e-ascii-export-as-ascii (memq (quote subtree) optns) (memq (quote visibl= e) optns) (memq (quote body) optns) (\` (:ascii-charset (\, (case raw-key (= 65 ...) (78 ...) (t ...))))))) ((97 110 117) (org-e-ascii-export-to-ascii (= memq (quote subtree) optns) (memq (quote visible) optns) (memq (quote body)= optns) (\` (:ascii-charset (\, (case raw-key (97 ...) (110 ...) (t ...))))= ))) (76 (org-e-latex-export-as-latex (memq (quote subtree) optns) (memq (qu= ote visible) optns) (memq (quote body) optns))) (108 (org-e-latex-export-to= -latex (memq (quote subtree) optns) (memq (quote visible) optns) (memq (quo= te body) optns))) (112 (org-e-latex-export-to-pdf (memq (quote subtree) opt= ns) (memq (quote visible) optns) (memq (quote body) optns))) (100 (org-open= -file (org-e-latex-export-to-pdf (memq (quote subtree) optns) (memq (quote = visible) optns) (memq (quote body) optns)))) (72 (org-e-html-export-as-html= (memq (quote subtree) optns) (memq (quote visible) optns) (memq (quote bod= y) optns))) (104 (org-e-html-export-to-html (memq (quote subtree) optns) (m= emq (quote visible) optns) (memq (quote body) optns))) (98 (org-open-file (= org-e-html-export-to-html (memq (quote subtree) optns) (memq (quote visible= ) optns) (memq (quote body) optns)))) (111 (org-e-odt-export-to-odt (memq (= quote subtree) optns) (memq (quote visible) optns) (memq (quote body) optns= ))) (79 (org-open-file (org-e-odt-export-to-odt (memq (quote subtree) optns= ) (memq (quote visible) optns) (memq (quote body) optns)))) (70 (org-e-publ= ish-current-file (memq (quote force) optns))) (80 (org-e-publish-current-pr= oject (memq (quote force) optns))) (88 (let ((project (assoc (org-icompleti= ng-read "Publish project: " org-e-publish-project-alist nil t) org-e-publis= h-project-alist))) (org-e-publish project (memq (quote force) optns)))) (69= (org-e-publish-all (memq (quote force) optns))) (t (error "No command asso= ciated with key %s" (char-to-string raw-key)))) (let* ((input (org-export-dispatch-ui (if (listp org-export-initial-scope= ) org-export-initial-scope (list org-export-initial-scope)) org-export-disp= atch-use-expert-ui)) (raw-key (car input)) (optns (cdr input))) (case (if (= < raw-key 27) (+ raw-key 96) raw-key) (113 nil) ((65 78 85) (org-e-ascii-ex= port-as-ascii (memq (quote subtree) optns) (memq (quote visible) optns) (me= mq (quote body) optns) (\` (:ascii-charset (\, (case raw-key ... ... ...)))= ))) ((97 110 117) (org-e-ascii-export-to-ascii (memq (quote subtree) optns)= (memq (quote visible) optns) (memq (quote body) optns) (\` (:ascii-charset= (\, (case raw-key ... ... ...)))))) (76 (org-e-latex-export-as-latex (memq= (quote subtree) optns) (memq (quote visible) optns) (memq (quote body) opt= ns))) (108 (org-e-latex-export-to-latex (memq (quote subtree) optns) (memq = (quote visible) optns) (memq (quote body) optns))) (112 (org-e-latex-export= -to-pdf (memq (quote subtree) optns) (memq (quote visible) optns) (memq (qu= ote body) optns))) (100 (org-open-file (org-e-latex-export-to-pdf (memq (qu= ote subtree) optns) (memq (quote visible) optns) (memq (quote body) optns))= )) (72 (org-e-html-export-as-html (memq (quote subtree) optns) (memq (quote= visible) optns) (memq (quote body) optns))) (104 (org-e-html-export-to-htm= l (memq (quote subtree) optns) (memq (quote visible) optns) (memq (quote bo= dy) optns))) (98 (org-open-file (org-e-html-export-to-html (memq (quote sub= tree) optns) (memq (quote visible) optns) (memq (quote body) optns)))) (111= (org-e-odt-export-to-odt (memq (quote subtree) optns) (memq (quote visible= ) optns) (memq (quote body) optns))) (79 (org-open-file (org-e-odt-export-t= o-odt (memq (quote subtree) optns) (memq (quote visible) optns) (memq (quot= e body) optns)))) (70 (org-e-publish-current-file (memq (quote force) optns= ))) (80 (org-e-publish-current-project (memq (quote force) optns))) (88 (le= t ((project (assoc (org-icompleting-read "Publish project: " org-e-publish-= project-alist nil t) org-e-publish-project-alist))) (org-e-publish project = (memq (quote force) optns)))) (69 (org-e-publish-all (memq (quote force) op= tns))) (t (error "No command associated with key %s" (char-to-string raw-ke= y))))) org-export-dispatch() call-interactively(org-export-dispatch record nil) command-execute(org-export-dispatch record) execute-extended-command(nil "org-export-dispatch") call-interactively(execute-extended-command nil nil)