| Server IP : 217.160.0.212 / Your IP : 216.73.217.5 Web Server : Apache System : Linux www 6.18.52-i1-ampere #1203 SMP Mon Sep 14 18:29:59 CEST 2026 aarch64 User : sws1073854427 ( 1073854427) PHP Version : 8.4.23 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : /usr/share/emacs/28.2/lisp/org/ |
Upload File : |
;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.
(require 'ob-core)
#@39 Emacs-lisp specific header arguments.
(defconst org-babel-header-args:emacs-lisp '((lexical . :any)) (#$ . 103))
#@342 Default arguments for evaluating an emacs-lisp source block.
A value of "yes" or t causes source blocks to be eval'd using
lexical scoping. It can also be an alist mapping symbols to
their value. It is used both as the optional LEXICAL argument to
`eval', and as the value for `lexical-binding' in buffers created
by `org-edit-src-code'.
(defvar org-babel-default-header-args:emacs-lisp '((:lexical . "no")) (#$ . 223))
#@78 Expand BODY according to PARAMS, return the expanded body.
(fn BODY PARAMS)
(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 (#$ . 652)])
#@66 Execute a block of emacs-lisp code with Babel.
(fn BODY PARAMS)
(defalias 'org-babel-execute:emacs-lisp #[514 "\302\236A\303\236A\304\305\235\203 \306\202 \307\310\"\"\311\312\313\235\204) \314\235\2030 \315\316Q\2021 !\317!\"\320\235?\205\267 \321\235\204 \322\235\204 \323\235\204 \313\235\204 \314\235\204 \324\235\204 \305\235\204y \325\235\204y \326\235\204y \327\235\203\234 \330\235\204\234 \331\211\321\235\204\217 \322\235\203\226 \304\332\"\202\232 \304\333\"*\207\334\335\336\236A\337 \236A\"\335\340 \236A\341\n\236A\"#\207" [print-length print-level :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 " ")" org-babel-emacs-lisp-lexical "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] 13 (#$ . 1055)])
#@157 Interpret :lexical source block argument.
Convert LEXICAL into the form appropriate for `lexical-binding'
and the LEXICAL argument to `eval'.
(fn LEXICAL)
(defalias 'org-babel-emacs-lisp-lexical #[257 "\211<\203 \207\211\300\235??\207" [("yes" "t")] 3 (#$ . 2050)])
#@158 Set `lexical-binding' in Org edit buffer.
Set `lexical-binding' in Org edit buffer according to the
corresponding :lexical source block argument.
(fn INFO)
(defalias 'org-babel-edit-prep:emacs-lisp #[257 "\301\302\303\3048\236A!!\211\207" [lexical-binding org-babel-emacs-lisp-lexical org-babel-read :lexical 2] 6 (#$ . 2325)])
(byte-code "\300\301\302\"\210\303\304!\207" [org-babel-make-language-alias "elisp" "emacs-lisp" provide ob-emacs-lisp] 3)