JezK
Edit File: ob-emacs-lisp.elc
;ELC ;;; Compiled by mockbuild@buildfarm03-new.corp.cloudlinux.com on Wed Aug 19 23:52:41 2026 ;;; from file /builddir/build/BUILD/emacs-24.3/lisp/org/ob-emacs-lisp.el ;;; in Emacs version 24.3.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (require 'ob) #@62 Default arguments for evaluating an emacs-lisp source block. (defvar org-babel-default-header-args:emacs-lisp '((:hlines . "yes") (:colnames . "no")) (#$ . 574)) #@60 Expand BODY according to PARAMS, return the expanded body. (defalias 'org-babel-expand-body:emacs-lisp #[(body params) "\306\307\310\311\"\"\312\313\"A\314\211 G\315V\203' \316\317\320 \321#\322 \323\260\202* \324P \325\n\235\2047 \326\n\235\203> \327 \330Q\202? -\207" [params vars result-params print-level print-length body mapcar cdr org-babel-get-header :var assoc :result-params nil 0 "(let (" mapconcat #[(var) "\301\302\303@\304ADD!\"\207" [var format "%S" print quote] 6] "\n " ")\n" "\n)" "\n" "code" "pp" "(pp " ")"] 6 (#$ . 742)]) #@48 Execute a block of emacs-lisp code with Babel. (defalias 'org-babel-execute:emacs-lisp #[(body params) "\306 \307\216\310\311\312\313\314\315 \"A\235\203 \316\202 \317\320\n \"\"!!\321\314\315 \"A\235\2043 \322\314\315 \"A\235\203? \323\211 \312\324 \"*\202Z \325 \326\314\327 \"A\314\330 \"A\"\326\314\331 \"A\314\332 \"A\"#+\207" [#1=#:wconfig params body result print-length print-level current-window-configuration ((set-window-configuration #1#)) eval read format "output" assoc :result-params "(with-output-to-string %s)" "(progn %s)" org-babel-expand-body:emacs-lisp "scalar" "verbatim" nil "%S" org-babel-reassemble-table org-babel-pick-name :colname-names :colnames :rowname-names :rownames] 8 (#$ . 1307)]) (provide 'ob-emacs-lisp)