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 |
(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\207" [require ob calc calc-trail calc-store] 2) |
|
16 |
#@55 Default arguments for evaluating a calc source block. |
|
17 |
(defvar org-babel-default-header-args:calc nil (#$ . 517)) |
|
18 |
#@78 Expand BODY according to PARAMS, return the expanded body. |
|
19 |
|
|
20 |
(fn BODY PARAMS) |
|
21 |
(defalias 'org-babel-expand-body:calc #[514 "\207" [] 3 (#$ . 636)]) |
|
22 |
#@60 Execute a block of calc code with Babel. |
|
23 |
|
|
24 |
(fn BODY PARAMS) |
|
25 |
(defalias 'org-babel-execute:calc #[514 "\301\302!\204 \303 \304\305\306\307\310!\311\"\312$\216\313 \210\314 \210)\210\315!\316\317\"\316\320\"\321\322\"\210\321\304\323\324\307\310!\325\"\326\327%\316\330\331\332 \"\333\"\"\"\210)\266\212r\301\302!q\210\334\335\336!!\337\336!\210*\207" [org--var-syms get-buffer "*Calculator*" current-window-configuration make-byte-code 0 "\301\300!\207" vconcat vector [set-window-configuration] 2 calc calc-quit org-babel--get-vars mapcar car symbol-name mapc #[257 "\300AC!\210\301@!\207" [calc-push-list calc-store-into] 3 "\n\n(fn PAIR)"] 257 "\211G\302V\205b \211\300\235\203 \303\304!!\207\211\302\305O\306\230\203& |