| commit | author | age | ||
| 76bbd0 | 1 | ;ELC |
| C | 2 | ;;; Compiled |
| 3 | ;;; in Emacs version 26.1 | |
| 4 | ;;; with all optimizations. | |
| 5 | ||
| 6 | ;;; This file uses dynamic docstrings, first added in Emacs 19.29. | |
| 7 | ||
| 8 | ;;; This file does not contain utf-8 non-ASCII characters, | |
| 9 | ;;; and so can be loaded in Emacs versions earlier than 23. | |
| 10 | ||
| 11 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 12 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 13 | ||
| 14 | ||
| 15 | (require 'ob) | |
| 16 | #@39 Emacs-lisp specific header arguments. | |
| 17 | (defconst org-babel-header-args:emacs-lisp '((lexical . :any)) (#$ . 422)) | |
| 18 | #@263 Default arguments for evaluating an emacs-lisp source block. | |
| 19 | ||
| 20 | A value of "yes" or t causes src blocks to be eval'd using | |
| 21 | lexical scoping. It can also be an alist mapping symbols to | |
| 22 | their value. It is used as the optional LEXICAL argument to | |
| 23 | `eval', which see. | |
| 24 | (defvar org-babel-default-header-args:emacs-lisp '((:lexical . "no")) (#$ . 542)) | |
| 25 | #@78 Expand BODY according to PARAMS, return the expanded body. | |
| 26 | ||
| 27 | (fn BODY PARAMS) | |
| 28 | (defalias 'org-babel-expand-body:emacs-lisp #[514 "\302!\303\211\211\204 \304P\202 \305\306\307\310\311##*\207" [print-length print-level org-babel--get-vars nil "\n" format "(let (%s)\n%s\n)" mapconcat #[257 "\300\301\302@\303ADD!\"\207" [format "%S" print quote] 7 "\n\n(fn VAR)"] "\n "] 9 (#$ . 892)]) | |
| 29 | #@66 Execute a block of emacs-lisp code with Babel. | |
| 30 | ||
| 31 | (fn BODY PARAMS) | |
| 32 | (defalias 'org-babel-execute:emacs-lisp #[514 "\302 \303\304\305\306\307!\310\"\311$\216\312\236A\313\236A\314\315\235\203! \316\202\" \317\320\"\"\321\322\323\235\2047 \324\235\203> \325\326Q\202? !<\203I \202L \327\235\"\330\235?\205\321 \331\235\204\227 \332\235\204\227 \333\235\204\227 \323\235\204\227 \324\235\204\227 \334\235\204\227 \315\235\204\221 \335\235\204\221 \336\235\204\221 \337\235\203\266 \340\235\204\266 \341\211\331\235\204\247 \332\235\203\256 \314\342\"\202\262 \314\343\"*\202\321 \344\345\346\n\236A\347 \236A\"\345\350 \236A\351\f\236A\"#\262\266\204)\207" [print-length print-level current-window-configuration make-byte-code 0 "\301\300!\207" vconcat vector [set-window-configuration] 2 :lexical :result-params format "output" "(with-output-to-string %s\n)" "(progn %s\n)" org-babel-expand-body:emacs-lisp eval read "code" "pp" "(pp " ")" ("yes" "t") "none" "scalar" "verbatim" "html" "file" "raw" "org" "drawer" "table" nil "%S" "%s" org-babel-reassemble-table org-babel-pick-name :colname-names :colnames :rowname-names :rownames] 15 (#$ . 1295)]) | |
| 33 | (byte-code "\300\301\302\"\210\303\304!\207" [org-babel-make-language-alias "elisp" "emacs-lisp" provide ob-emacs-lisp] 3) | |
