[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [O] flet / my-filt problem
From: |
Andreas Leha |
Subject: |
Re: [O] flet / my-filt problem |
Date: |
Tue, 31 Jul 2012 00:42:35 +0200 |
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/24.1.50 (gnu/linux) |
Eric Schulte <address@hidden> writes:
> Andreas Leha <address@hidden> 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 <-
totest[sapply(totest,\n function(param)
!(class(P_fu[[param]])[1] == \"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 != \"time\"]\ntotest <-
totest[totest != \"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 ==
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=(par_shape[param] == \"normal\")))))\n\nttt <-
fu_comp\nrownames(ttt) <- nameMap.NameToEnglish[rownames(ttt)]\n\n## add
descriptive values\nttt <- data.frame(ttt,\n
t1=unlist(sapply(totest,\n function(param)
calc_descr(P_fu_nofu[[param]], param)[2])),\n
t2=unlist(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=2)\nttt[,1] <-
prettyPvalues(ttt[,1], digits=2)\ncolnames(ttt)[1] <- \"p-Value
(paired)\"\n\n## strip NA p-Values\nttt <-
ttt[!is.na(ttt[,1]),]\n\nprint(ascii(ttt, header=TRUE, include.colnames=TRUE,
include.rownames=TRUE), type=\"org\")" output ("silent" "org" "output" "org"
"output" "replace") t t)
org-babel-R-evaluate("*R*" "totest <- colnames(P_fu)\ntotest <-
totest[sapply(totest,\n function(param)
!(class(P_fu[[param]])[1] == \"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 != \"time\"]\ntotest <-
totest[totest != \"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 ==
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=(par_shape[param] == \"normal\")))))\n\nttt <-
fu_comp\nrownames(ttt) <- nameMap.NameToEnglish[rownames(ttt)]\n\n## add
descriptive values\nttt <- data.frame(ttt,\n
t1=unlist(sapply(totest,\n function(param)
calc_descr(P_fu_nofu[[param]], param)[2])),\n
t2=unlist(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=2)\nttt[,1] <-
prettyPvalues(ttt[,1], digits=2)\ncolnames(ttt)[1] <- \"p-Value
(paired)\"\n\n## strip NA p-Values\nttt <-
ttt[!is.na(ttt[,1]),]\n\nprint(ascii(ttt, header=TRUE, include.colnames=TRUE,
include.rownames=TRUE), type=\"org\")" output ("silent" "org" "output" "org"
"output" "replace") t t)
org-babel-execute:R("totest <- colnames(P_fu)\ntotest <-
totest[sapply(totest,\n function(param)
!(class(P_fu[[param]])[1] == \"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 != \"time\"]\ntotest <-
totest[totest != \"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 ==
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=(par_shape[param] == \"normal\")))))\n\nttt <-
fu_comp\nrownames(ttt) <- nameMap.NameToEnglish[rownames(ttt)]\n\n## add
descriptive values\nttt <- data.frame(ttt,\n
t1=unlist(sapply(totest,\n function(param)
calc_descr(P_fu_nofu[[param]], param)[2])),\n
t2=unlist(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=2)\nttt[,1] <-
prettyPvalues(ttt[,1], digits=2)\ncolnames(ttt)[1] <- \"p-Value
(paired)\"\n\n## strip NA p-Values\nttt <-
ttt[!is.na(ttt[,1]),]\n\nprint(ascii(ttt, header=TRUE, include.colnames=TRUE,
include.rownames=TRUE), type=\"org\")" ((:colname-names) (:rowname-names)
(:result-params "silent" "org" "output" "org" "output" "replace") (:result-type
. output) (:comments . "") (:shebang . "") (:cache . "no") (:padline . "")
(:noweb . "yes") (:tangle . "no") (:exports . "code") (:results . "silent org
output") (:colname-names) (:rowname-names) (:result-params "org" "output"
"replace") (:result-type . output) (:colnames . "yes") (:rownames . "yes")
(:session . "*R*") (:padnewline . "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=follow_up_comparison_paired()")
#[(el) "A:\203 .A\207\301A!\207" [el org-babel-ref-parse] 2]((:var .
"results=follow_up_comparison_paired()"))
mapcar(#[(el) "A:\203 .A\207\301A!\207" [el org-babel-ref-parse] 2]
((:var . "results=follow_up_comparison_paired()")))
org-babel-process-params(((:comments . "") (:shebang . "") (:cache . "no")
(:padline . "") (:noweb . "yes") (:tangle . "no") (:exports . "none") (:results
. "silent") (:var . "results=follow_up_comparison_paired()") (:hlines . "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=follow_up_comparison_paired()") (:colnames . "yes") (:rownames .
"yes") (:session . "*R*") (:padnewline . "yes") (:hlines . "no")) "" nil 0) lob
silent)
#[nil "\303\304\3058\"A\211.\205. \306\232?\205. \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 . "") (:shebang .
"") (:cache . "no") (:padline . "") (:noweb . "yes") (:tangle . "no") (:exports
. "none") (:results . "silent") (:var .
"results=follow_up_comparison_paired()") (:colnames . "yes") (:rownames .
"yes") (:session . "*R*") (:padnewline . "yes") (:hlines . "no")) "" nil 0) lob)
org-babel-exp-non-block-elements(25187 #<marker at 25316 in *temp*>)
#[(pair) "\211.A@)\n\"\207" [pair x start end] 4]((src
org-babel-exp-non-block-elements))
mapcar(#[(pair) "\211.A@)\n\"\207" [pair x start end] 4] ((src
org-babel-exp-non-block-elements)))
#[(start end) "\301\302\"\207" [org-export-interblocks mapcar #[(pair)
"\211.A@)\n\"\207" [pair x start end] 4]] 3](25187 #<marker at 25316 in
*temp*>)
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-export-file buf)) (org-export-blocks-preprocess)))
(unless noexpand (org-export-expand-include-keyword) (let
((org-current-export-file buf)) (org-export-blocks-preprocess)))
(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 (quote
org-export-before-parsing-hook))) (org-element-parse-buffer nil visible-only))
(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-overlay ov (- (overlay-start ov)
--offset) (- (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 (quote
org-export-before-parsing-hook))) (org-element-parse-buffer nil visible-only)))
(progn (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-overlay ov (- (overlay-start ov)
--offset) (- (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 (quote
org-export-before-parsing-hook))) (org-element-parse-buffer nil visible-only))))
(unwind-protect (progn (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-overlay ov (- (overlay-start ov)
--offset) (- (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 (quote
org-export-before-parsing-hook))) (org-element-parse-buffer nil
visible-only)))) (and (buffer-name temp-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-buffer
"^\\(org-\\|orgtbl-\\|major-mode$\\|outline-\\(regexp\\|level\\)$\\)") (insert
--buffer-string) (mapc (lambda (ov) (move-overlay ov (- ... --offset) (- ...
--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-current-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-invisibility-spec nil)) (org-clone-local-variables --original-buffer
"^\\(org-\\|orgtbl-\\|major-mode$\\|outline-\\(regexp\\|level\\)$\\)") (insert
--buffer-string) (mapc (lambda (ov) (move-overlay ov (- ... --offset) (- ...
--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-current-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))))
(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-mode$\\|outline-\\(regexp\\|level\\)$\\)") (insert
--buffer-string) (mapc (lambda (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-buffer nil visible-only)))) (and
(buffer-name temp-buffer) (kill-buffer temp-buffer)))))
(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-overlay ov (- (overlay-start ov)
--offset) (- (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 (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)
(overlays-in (point-min) (point-max))))) (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-overlay ov (- (overlay-start ov)
--offset) (- (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 (quote
org-export-before-parsing-hook))) (org-element-parse-buffer nil
visible-only)))))
(org-export-with-current-buffer-copy (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 (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-preprocess))) (goto-char (point-min)) (let
((org-export-current-backend backend)) (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 backend
subtreep ext-plist))) (tree (let ((buf (or (buffer-file-name ...)
(current-buffer)))) (org-export-with-current-buffer-copy (unless noexpand
(org-export-expand-include-keyword) (let (...) (org-export-blocks-preprocess)))
(goto-char (point-min)) (let ((org-export-current-backend backend)) (run-hooks
(quote org-export-before-parsing-hook))) (org-element-parse-buffer nil
visible-only))))) (setq tree (org-export-filter-apply-functions (plist-get info
:filter-parse-tree) tree info)) (setq info (org-combine-plists info
(org-export-collect-tree-properties tree info))) (let* ((body
(org-element-normalize-string (org-export-data tree info))) (template (cdr
(assq (quote template) (plist-get info :translate-alist)))) (output
(org-export-filter-apply-functions (plist-get info :filter-final-output) (if
(or (not ...) body-only) 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
(point-min)) (forward-line) (narrow-to-region (point) (point-max)))) (let
((info (org-export-install-filters (org-export-get-environment backend subtreep
ext-plist))) (tree (let ((buf (or ... ...)))
(org-export-with-current-buffer-copy (unless noexpand
(org-export-expand-include-keyword) (let ... ...)) (goto-char (point-min)) (let
(...) (run-hooks ...)) (org-element-parse-buffer nil visible-only))))) (setq
tree (org-export-filter-apply-functions (plist-get info :filter-parse-tree)
tree info)) (setq info (org-combine-plists info
(org-export-collect-tree-properties tree info))) (let* ((body
(org-element-normalize-string (org-export-data tree info))) (template (cdr
(assq (quote template) (plist-get info :translate-alist)))) (output
(org-export-filter-apply-functions (plist-get info :filter-final-output) (if
(or ... body-only) body (funcall template body info)) info))) (when
org-export-copy-to-kill-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-max)))) (let ((info
(org-export-install-filters (org-export-get-environment backend subtreep
ext-plist))) (tree (let ((buf ...)) (org-export-with-current-buffer-copy
(unless noexpand ... ...) (goto-char ...) (let ... ...)
(org-element-parse-buffer nil visible-only))))) (setq tree
(org-export-filter-apply-functions (plist-get info :filter-parse-tree) tree
info)) (setq info (org-combine-plists info (org-export-collect-tree-properties
tree info))) (let* ((body (org-element-normalize-string (org-export-data tree
info))) (template (cdr (assq ... ...))) (output
(org-export-filter-apply-functions (plist-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-plist
noexpand))) (with-temp-buffer (insert out) (let ((coding-system-for-write
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)))
(org-export-to-file (quote e-latex) outfile subtreep visible-only body-only
ext-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
body-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) (memq
(quote visible) optns) (memq (quote body) optns)))
(cond ((eql --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
visible) optns) (memq (quote body) optns) (\` (:ascii-charset (\, (case raw-key
(65 ...) (78 ...) (t ...))))))) ((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 (97 ...)
(110 ...) (t ...))))))) ((eql --cl-var-- (quote 76))
(org-e-latex-export-as-latex (memq (quote subtree) optns) (memq (quote visible)
optns) (memq (quote body) optns))) ((eql --cl-var-- (quote 108))
(org-e-latex-export-to-latex (memq (quote subtree) optns) (memq (quote visible)
optns) (memq (quote body) optns))) ((eql --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 subtree) 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 --cl-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) optns) (memq (quote visible)
optns) (memq (quote body) optns)))) ((eql --cl-var-- (quote 70))
(org-e-publish-current-file (memq (quote force) optns))) ((eql --cl-var--
(quote 80)) (org-e-publish-current-project (memq (quote force) optns))) ((eql
--cl-var-- (quote 88)) (let ((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)))) ((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 ((eql
--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 visible)
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
(quote subtree) optns) (memq (quote visible) optns) (memq (quote body) optns)))
((eql --cl-var-- (quote 108)) (org-e-latex-export-to-latex (memq (quote
subtree) optns) (memq (quote visible) optns) (memq (quote body) optns))) ((eql
--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 subtree)
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 --cl-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) optns) (memq
(quote visible) optns) (memq (quote body) optns)))) ((eql --cl-var-- (quote
70)) (org-e-publish-current-file (memq (quote force) optns))) ((eql --cl-var--
(quote 80)) (org-e-publish-current-project (memq (quote force) optns))) ((eql
--cl-var-- (quote 88)) (let ((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)))) ((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)
(org-e-ascii-export-as-ascii (memq (quote subtree) optns) (memq (quote visible)
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 (quote visible)
optns) (memq (quote body) optns))) (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 (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 body) optns))) (104
(org-e-html-export-to-html (memq (quote subtree) optns) (memq (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-publish-current-file (memq (quote force) optns))) (80
(org-e-publish-current-project (memq (quote force) optns))) (88 (let ((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) optns))) (t (error
"No command associated 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-dispatch-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-export-as-ascii (memq (quote subtree) optns) (memq (quote visible)
optns) (memq (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) optns))) (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 (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 body) optns))) (104
(org-e-html-export-to-html (memq (quote subtree) optns) (memq (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-publish-current-file (memq (quote force) optns))) (80
(org-e-publish-current-project (memq (quote force) optns))) (88 (let ((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) optns))) (t (error
"No command associated with key %s" (char-to-string raw-key)))))
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)
- [O] flet / my-filt problem, Andreas Leha, 2012/07/30
- Re: [O] flet / my-filt problem, Eric Schulte, 2012/07/30
- Re: [O] flet / my-filt problem,
Andreas Leha <=
- Re: [O] flet / my-filt problem, Eric Schulte, 2012/07/30
- Re: [O] flet / my-filt problem, Andreas Leha, 2012/07/31
- Re: [O] flet / my-filt problem, Bastien, 2012/07/31
- Re: [O] flet / my-filt problem, Eric Schulte, 2012/07/31
- Re: [O] flet / my-filt problem, Bastien, 2012/07/31