summaryrefslogtreecommitdiff
path: root/elpa/org-9.5.2/ob-emacs-lisp.elc
blob: d8c741fcad62a7fcf9e91d6a74052ab87bc8dff1 (plain)
ofshex dumpascii
0000 3b 45 4c 43 17 00 00 00 0a 3b 3b 3b 20 43 6f 6d 70 69 6c 65 64 0a 3b 3b 3b 20 69 6e 20 45 6d 61 ;ELC.....;;;.Compiled.;;;.in.Ema
0020 63 73 20 76 65 72 73 69 6f 6e 20 32 37 2e 32 0a 3b 3b 3b 20 77 69 74 68 20 61 6c 6c 20 6f 70 74 cs.version.27.2.;;;.with.all.opt
0040 69 6d 69 7a 61 74 69 6f 6e 73 2e 0a 0a 3b 3b 3b 20 54 68 69 73 20 66 69 6c 65 20 75 73 65 73 20 imizations...;;;.This.file.uses.
0060 64 79 6e 61 6d 69 63 20 64 6f 63 73 74 72 69 6e 67 73 2c 20 66 69 72 73 74 20 61 64 64 65 64 20 dynamic.docstrings,.first.added.
0080 69 6e 20 45 6d 61 63 73 20 31 39 2e 32 39 2e 0a 0a 3b 3b 3b 20 54 68 69 73 20 66 69 6c 65 20 64 in.Emacs.19.29...;;;.This.file.d
00a0 6f 65 73 20 6e 6f 74 20 63 6f 6e 74 61 69 6e 20 75 74 66 2d 38 20 6e 6f 6e 2d 41 53 43 49 49 20 oes.not.contain.utf-8.non-ASCII.
00c0 63 68 61 72 61 63 74 65 72 73 2c 0a 3b 3b 3b 20 61 6e 64 20 73 6f 20 63 61 6e 20 62 65 20 6c 6f characters,.;;;.and.so.can.be.lo
00e0 61 64 65 64 20 69 6e 20 45 6d 61 63 73 20 76 65 72 73 69 6f 6e 73 20 65 61 72 6c 69 65 72 20 74 aded.in.Emacs.versions.earlier.t
0100 68 61 6e 20 32 33 2e 0a 0a 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b han.23...;;;;;;;;;;;;;;;;;;;;;;;
0120 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
0140 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 0a 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b ;;;;;;;;;;;;.;;;;;;;;;;;;;;;;;;;
0160 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
0180 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 0a 0a 0a 28 72 65 71 75 69 72 65 20 27 6f 62 2d ;;;;;;;;;;;;;;;;...(require.'ob-
01a0 63 6f 72 65 29 0a 23 40 33 39 20 45 6d 61 63 73 2d 6c 69 73 70 20 73 70 65 63 69 66 69 63 20 68 core).#@39.Emacs-lisp.specific.h
01c0 65 61 64 65 72 20 61 72 67 75 6d 65 6e 74 73 2e 1f 0a 28 64 65 66 63 6f 6e 73 74 20 6f 72 67 2d eader.arguments...(defconst.org-
01e0 62 61 62 65 6c 2d 68 65 61 64 65 72 2d 61 72 67 73 3a 65 6d 61 63 73 2d 6c 69 73 70 20 27 28 28 babel-header-args:emacs-lisp.'((
0200 6c 65 78 69 63 61 6c 20 2e 20 3a 61 6e 79 29 29 20 28 23 24 20 2e 20 34 32 37 29 29 0a 23 40 33 lexical...:any)).(#$...427)).#@3
0220 34 32 20 44 65 66 61 75 6c 74 20 61 72 67 75 6d 65 6e 74 73 20 66 6f 72 20 65 76 61 6c 75 61 74 42.Default.arguments.for.evaluat
0240 69 6e 67 20 61 6e 20 65 6d 61 63 73 2d 6c 69 73 70 20 73 6f 75 72 63 65 20 62 6c 6f 63 6b 2e 0a ing.an.emacs-lisp.source.block..
0260 0a 41 20 76 61 6c 75 65 20 6f 66 20 22 79 65 73 22 20 6f 72 20 74 20 63 61 75 73 65 73 20 73 6f .A.value.of."yes".or.t.causes.so
0280 75 72 63 65 20 62 6c 6f 63 6b 73 20 74 6f 20 62 65 20 65 76 61 6c 27 64 20 75 73 69 6e 67 0a 6c urce.blocks.to.be.eval'd.using.l
02a0 65 78 69 63 61 6c 20 73 63 6f 70 69 6e 67 2e 20 20 49 74 20 63 61 6e 20 61 6c 73 6f 20 62 65 20 exical.scoping...It.can.also.be.
02c0 61 6e 20 61 6c 69 73 74 20 6d 61 70 70 69 6e 67 20 73 79 6d 62 6f 6c 73 20 74 6f 0a 74 68 65 69 an.alist.mapping.symbols.to.thei
02e0 72 20 76 61 6c 75 65 2e 20 20 49 74 20 69 73 20 75 73 65 64 20 62 6f 74 68 20 61 73 20 74 68 65 r.value...It.is.used.both.as.the
0300 20 6f 70 74 69 6f 6e 61 6c 20 4c 45 58 49 43 41 4c 20 61 72 67 75 6d 65 6e 74 20 74 6f 0a 60 65 .optional.LEXICAL.argument.to.`e
0320 76 61 6c 27 2c 20 61 6e 64 20 61 73 20 74 68 65 20 76 61 6c 75 65 20 66 6f 72 20 60 6c 65 78 69 val',.and.as.the.value.for.`lexi
0340 63 61 6c 2d 62 69 6e 64 69 6e 67 27 20 69 6e 20 62 75 66 66 65 72 73 20 63 72 65 61 74 65 64 0a cal-binding'.in.buffers.created.
0360 62 79 20 60 6f 72 67 2d 65 64 69 74 2d 73 72 63 2d 63 6f 64 65 27 2e 1f 0a 28 64 65 66 76 61 72 by.`org-edit-src-code'...(defvar
0380 20 6f 72 67 2d 62 61 62 65 6c 2d 64 65 66 61 75 6c 74 2d 68 65 61 64 65 72 2d 61 72 67 73 3a 65 .org-babel-default-header-args:e
03a0 6d 61 63 73 2d 6c 69 73 70 20 27 28 28 3a 6c 65 78 69 63 61 6c 20 2e 20 22 6e 6f 22 29 29 20 28 macs-lisp.'((:lexical..."no")).(
03c0 23 24 20 2e 20 35 34 37 29 29 0a 23 40 37 38 20 45 78 70 61 6e 64 20 42 4f 44 59 20 61 63 63 6f #$...547)).#@78.Expand.BODY.acco
03e0 72 64 69 6e 67 20 74 6f 20 50 41 52 41 4d 53 2c 20 72 65 74 75 72 6e 20 74 68 65 20 65 78 70 61 rding.to.PARAMS,.return.the.expa
0400 6e 64 65 64 20 62 6f 64 79 2e 0a 0a 28 66 6e 20 42 4f 44 59 20 50 41 52 41 4d 53 29 1f 0a 28 64 nded.body...(fn.BODY.PARAMS)..(d
0420 65 66 61 6c 69 61 73 20 27 6f 72 67 2d 62 61 62 65 6c 2d 65 78 70 61 6e 64 2d 62 6f 64 79 3a 65 efalias.'org-babel-expand-body:e
0440 6d 61 63 73 2d 6c 69 73 70 20 23 5b 35 31 34 20 22 5c 33 30 32 01 21 5c 33 30 33 5c 32 31 31 18 macs-lisp.#[514."\302.!\303\211.
0460 19 5c 32 31 31 5c 32 30 34 11 00 02 5c 33 30 34 50 5c 32 30 32 1a 00 5c 33 30 35 5c 33 30 36 5c .\211\204...\304P\202..\305\306\
0480 33 30 37 5c 33 31 30 04 5c 33 31 31 23 05 23 2a 5c 32 30 37 22 20 5b 70 72 69 6e 74 2d 6c 65 6e 307\310.\311#.#*\207".[print-len
04a0 67 74 68 20 70 72 69 6e 74 2d 6c 65 76 65 6c 20 6f 72 67 2d 62 61 62 65 6c 2d 2d 67 65 74 2d 76 gth.print-level.org-babel--get-v
04c0 61 72 73 20 6e 69 6c 20 22 5c 6e 22 20 66 6f 72 6d 61 74 20 22 28 6c 65 74 20 28 25 73 29 5c 6e ars.nil."\n".format."(let.(%s)\n
04e0 25 73 5c 6e 29 22 20 6d 61 70 63 6f 6e 63 61 74 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 33 30 31 %s\n)".mapconcat.#[257."\300\301
0500 5c 33 30 32 03 40 5c 33 30 33 05 41 44 44 21 5c 22 5c 32 30 37 22 20 5b 66 6f 72 6d 61 74 20 22 \302.@\303.ADD!\"\207".[format."
0520 25 53 22 20 70 72 69 6e 74 20 71 75 6f 74 65 5d 20 37 20 22 5c 6e 5c 6e 28 66 6e 20 56 41 52 29 %S".print.quote].7."\n\n(fn.VAR)
0540 22 5d 20 22 5c 6e 20 20 20 20 20 20 22 5d 20 39 20 28 23 24 20 2e 20 39 37 36 29 5d 29 0a 23 40 "]."\n......"].9.(#$...976)]).#@
0560 36 36 20 45 78 65 63 75 74 65 20 61 20 62 6c 6f 63 6b 20 6f 66 20 65 6d 61 63 73 2d 6c 69 73 70 66.Execute.a.block.of.emacs-lisp
0580 20 63 6f 64 65 20 77 69 74 68 20 42 61 62 65 6c 2e 0a 0a 28 66 6e 20 42 4f 44 59 20 50 41 52 41 .code.with.Babel...(fn.BODY.PARA
05a0 4d 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 6f 72 67 2d 62 61 62 65 6c 2d 65 78 65 63 75 74 MS)..(defalias.'org-babel-execut
05c0 65 3a 65 6d 61 63 73 2d 6c 69 73 70 20 23 5b 35 31 34 20 22 5c 33 30 32 01 5c 32 33 36 41 5c 33 e:emacs-lisp.#[514."\302.\236A\3
05e0 30 33 02 5c 32 33 36 41 5c 33 30 34 5c 33 30 35 02 5c 32 33 35 5c 32 30 33 13 00 5c 33 30 36 5c 03.\236A\304\305.\235\203..\306\
0600 32 30 32 14 00 5c 33 30 37 5c 33 31 30 06 06 06 06 5c 22 5c 22 5c 33 31 31 5c 33 31 32 5c 33 31 202..\307\310....\"\"\311\312\31
0620 33 04 5c 32 33 35 5c 32 30 34 29 00 5c 33 31 34 04 5c 32 33 35 5c 32 30 33 30 00 5c 33 31 35 03 3.\235\204).\314.\235\2030.\315.
0640 5c 33 31 36 51 5c 32 30 32 31 00 02 21 5c 33 31 37 05 21 5c 22 02 5c 33 32 30 01 5c 32 33 35 3f \316Q\2021..!\317.!\".\320.\235?
0660 5c 32 30 35 5c 32 37 32 00 5c 33 32 31 01 5c 32 33 35 5c 32 30 34 5c 32 30 30 00 5c 33 32 32 01 \205\272.\321.\235\204\200.\322.
0680 5c 32 33 35 5c 32 30 34 5c 32 30 30 00 5c 33 32 33 01 5c 32 33 35 5c 32 30 34 5c 32 30 30 00 5c \235\204\200.\323.\235\204\200.\
06a0 33 31 33 01 5c 32 33 35 5c 32 30 34 5c 32 30 30 00 5c 33 31 34 01 5c 32 33 35 5c 32 30 34 5c 32 313.\235\204\200.\314.\235\204\2
06c0 30 30 00 5c 33 32 34 01 5c 32 33 35 5c 32 30 34 5c 32 30 30 00 5c 33 30 35 01 5c 32 33 35 5c 32 00.\324.\235\204\200.\305.\235\2
06e0 30 34 7a 00 5c 33 32 35 01 5c 32 33 35 5c 32 30 34 7a 00 5c 33 32 36 01 5c 32 33 35 5c 32 30 34 04z.\325.\235\204z.\326.\235\204
0700 7a 00 5c 33 32 37 01 5c 32 33 35 5c 32 30 33 5c 32 33 37 00 5c 33 33 30 01 5c 32 33 35 5c 32 30 z.\327.\235\203\237.\330.\235\20
0720 34 5c 32 33 37 00 5c 33 33 31 5c 32 31 31 18 19 5c 33 32 31 04 5c 32 33 35 5c 32 30 34 5c 32 32 4\237.\331\211..\321.\235\204\22
0740 30 00 5c 33 32 32 04 5c 32 33 35 5c 32 30 33 5c 32 32 37 00 5c 33 30 34 5c 33 33 32 03 5c 22 5c 0.\322.\235\203\227.\304\332.\"\
0760 32 30 32 5c 32 33 33 00 5c 33 30 34 5c 33 33 33 03 5c 22 2a 5c 32 30 32 5c 32 37 32 00 5c 33 33 202\233.\304\333.\"*\202\272.\33
0780 34 02 5c 33 33 35 5c 33 33 36 06 09 5c 32 33 36 41 5c 33 33 37 06 5c 6e 5c 32 33 36 41 5c 22 5c 4.\335\336..\236A\337.\n\236A\"\
07a0 33 33 35 5c 33 34 30 06 5c 6e 5c 32 33 36 41 5c 33 34 31 06 0b 5c 32 33 36 41 5c 22 23 5c 32 36 335\340.\n\236A\341..\236A\"#\26
07c0 32 01 5c 32 30 37 22 20 5b 70 72 69 6e 74 2d 6c 65 6e 67 74 68 20 70 72 69 6e 74 2d 6c 65 76 65 2.\207".[print-length.print-leve
07e0 6c 20 3a 6c 65 78 69 63 61 6c 20 3a 72 65 73 75 6c 74 2d 70 61 72 61 6d 73 20 66 6f 72 6d 61 74 l.:lexical.:result-params.format
0800 20 22 6f 75 74 70 75 74 22 20 22 28 77 69 74 68 2d 6f 75 74 70 75 74 2d 74 6f 2d 73 74 72 69 6e ."output"."(with-output-to-strin
0820 67 20 25 73 5c 6e 29 22 20 22 28 70 72 6f 67 6e 20 25 73 5c 6e 29 22 20 6f 72 67 2d 62 61 62 65 g.%s\n)"."(progn.%s\n)".org-babe
0840 6c 2d 65 78 70 61 6e 64 2d 62 6f 64 79 3a 65 6d 61 63 73 2d 6c 69 73 70 20 65 76 61 6c 20 72 65 l-expand-body:emacs-lisp.eval.re
0860 61 64 20 22 63 6f 64 65 22 20 22 70 70 22 20 22 28 70 70 20 22 20 22 29 22 20 6f 72 67 2d 62 61 ad."code"."pp"."(pp.".")".org-ba
0880 62 65 6c 2d 65 6d 61 63 73 2d 6c 69 73 70 2d 6c 65 78 69 63 61 6c 20 22 6e 6f 6e 65 22 20 22 73 bel-emacs-lisp-lexical."none"."s
08a0 63 61 6c 61 72 22 20 22 76 65 72 62 61 74 69 6d 22 20 22 68 74 6d 6c 22 20 22 66 69 6c 65 22 20 calar"."verbatim"."html"."file".
08c0 22 72 61 77 22 20 22 6f 72 67 22 20 22 64 72 61 77 65 72 22 20 22 74 61 62 6c 65 22 20 6e 69 6c "raw"."org"."drawer"."table".nil
08e0 20 22 25 53 22 20 22 25 73 22 20 6f 72 67 2d 62 61 62 65 6c 2d 72 65 61 73 73 65 6d 62 6c 65 2d ."%S"."%s".org-babel-reassemble-
0900 74 61 62 6c 65 20 6f 72 67 2d 62 61 62 65 6c 2d 70 69 63 6b 2d 6e 61 6d 65 20 3a 63 6f 6c 6e 61 table.org-babel-pick-name.:colna
0920 6d 65 2d 6e 61 6d 65 73 20 3a 63 6f 6c 6e 61 6d 65 73 20 3a 72 6f 77 6e 61 6d 65 2d 6e 61 6d 65 me-names.:colnames.:rowname-name
0940 73 20 3a 72 6f 77 6e 61 6d 65 73 5d 20 31 34 20 28 23 24 20 2e 20 31 33 37 39 29 5d 29 0a 23 40 s.:rownames].14.(#$...1379)]).#@
0960 31 35 37 20 49 6e 74 65 72 70 72 65 74 20 3a 6c 65 78 69 63 61 6c 20 73 6f 75 72 63 65 20 62 6c 157.Interpret.:lexical.source.bl
0980 6f 63 6b 20 61 72 67 75 6d 65 6e 74 2e 0a 43 6f 6e 76 65 72 74 20 4c 45 58 49 43 41 4c 20 69 6e ock.argument..Convert.LEXICAL.in
09a0 74 6f 20 74 68 65 20 66 6f 72 6d 20 61 70 70 72 6f 70 72 69 61 74 65 20 66 6f 72 20 60 6c 65 78 to.the.form.appropriate.for.`lex
09c0 69 63 61 6c 2d 62 69 6e 64 69 6e 67 27 0a 61 6e 64 20 74 68 65 20 4c 45 58 49 43 41 4c 20 61 72 ical-binding'.and.the.LEXICAL.ar
09e0 67 75 6d 65 6e 74 20 74 6f 20 60 65 76 61 6c 27 2e 0a 0a 28 66 6e 20 4c 45 58 49 43 41 4c 29 1f gument.to.`eval'...(fn.LEXICAL).
0a00 0a 28 64 65 66 61 6c 69 61 73 20 27 6f 72 67 2d 62 61 62 65 6c 2d 65 6d 61 63 73 2d 6c 69 73 70 .(defalias.'org-babel-emacs-lisp
0a20 2d 6c 65 78 69 63 61 6c 20 23 5b 32 35 37 20 22 5c 32 31 31 3c 5c 32 30 33 06 00 5c 32 30 37 5c -lexical.#[257."\211<\203..\207\
0a40 32 31 31 5c 33 30 30 5c 32 33 35 3f 3f 5c 32 30 37 22 20 5b 28 22 79 65 73 22 20 22 74 22 29 5d 211\300\235??\207".[("yes"."t")]
0a60 20 33 20 28 23 24 20 2e 20 32 34 30 34 29 5d 29 0a 23 40 31 35 38 20 53 65 74 20 60 6c 65 78 69 .3.(#$...2404)]).#@158.Set.`lexi
0a80 63 61 6c 2d 62 69 6e 64 69 6e 67 27 20 69 6e 20 4f 72 67 20 65 64 69 74 20 62 75 66 66 65 72 2e cal-binding'.in.Org.edit.buffer.
0aa0 0a 53 65 74 20 60 6c 65 78 69 63 61 6c 2d 62 69 6e 64 69 6e 67 27 20 69 6e 20 4f 72 67 20 65 64 .Set.`lexical-binding'.in.Org.ed
0ac0 69 74 20 62 75 66 66 65 72 20 61 63 63 6f 72 64 69 6e 67 20 74 6f 20 74 68 65 0a 63 6f 72 72 65 it.buffer.according.to.the.corre
0ae0 73 70 6f 6e 64 69 6e 67 20 3a 6c 65 78 69 63 61 6c 20 73 6f 75 72 63 65 20 62 6c 6f 63 6b 20 61 sponding.:lexical.source.block.a
0b00 72 67 75 6d 65 6e 74 2e 0a 0a 28 66 6e 20 49 4e 46 4f 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 rgument...(fn.INFO)..(defalias.'
0b20 6f 72 67 2d 62 61 62 65 6c 2d 65 64 69 74 2d 70 72 65 70 3a 65 6d 61 63 73 2d 6c 69 73 70 20 23 org-babel-edit-prep:emacs-lisp.#
0b40 5b 32 35 37 20 22 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 04 38 5c 32 33 36 41 21 21 5c [257."\301\302\303\304.8\236A!!\
0b60 32 31 31 10 5c 32 30 37 22 20 5b 6c 65 78 69 63 61 6c 2d 62 69 6e 64 69 6e 67 20 6f 72 67 2d 62 211.\207".[lexical-binding.org-b
0b80 61 62 65 6c 2d 65 6d 61 63 73 2d 6c 69 73 70 2d 6c 65 78 69 63 61 6c 20 6f 72 67 2d 62 61 62 65 abel-emacs-lisp-lexical.org-babe
0ba0 6c 2d 72 65 61 64 20 3a 6c 65 78 69 63 61 6c 20 32 5d 20 36 20 28 23 24 20 2e 20 32 36 37 39 29 l-read.:lexical.2].6.(#$...2679)
0bc0 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 22 5c 32 31 ]).(byte-code."\300\301\302\"\21
0be0 30 5c 33 30 33 5c 33 30 34 21 5c 32 30 37 22 20 5b 6f 72 67 2d 62 61 62 65 6c 2d 6d 61 6b 65 2d 0\303\304!\207".[org-babel-make-
0c00 6c 61 6e 67 75 61 67 65 2d 61 6c 69 61 73 20 22 65 6c 69 73 70 22 20 22 65 6d 61 63 73 2d 6c 69 language-alias."elisp"."emacs-li
0c20 73 70 22 20 70 72 6f 76 69 64 65 20 6f 62 2d 65 6d 61 63 73 2d 6c 69 73 70 5d 20 33 29 0a sp".provide.ob-emacs-lisp].3).