mirror of https://github.com/Chizi123/.emacs.d.git

Chizi123
2018-11-21 e75a20334813452c6912c090d70a0de2c805f94d
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&\307    \305\310O\"\310!\207\311\312!\211\247\2033\211\202^\313!\203?\313!\202^\211<\203N\314\315A@#\202^\316\306\317\312\320\321\322\323\n!@\"!!#\262C!\207" [calc-mode-map 0 calc-recall intern 1 "'" lookup-key nil calc-push-list calc-eval math-read-number error "Calc error \"%s\" on input \"%s\"" replace-regexp-in-string "" math-evaluate-expr mapcar org-babel-calc-maybe-resolve-var math-read-exprs] 12 "\n\n(fn LINE)" org-trim split-string org-babel-expand-body:calc "[\n ]" calc-eval calc-top 1 calc-pop] 12 (#$ . 789)])
26 #@11 
27
28 (fn EL)
29 (defalias 'org-babel-calc-maybe-resolve-var #[257 "\211:\203'\211@\301=\203\"\211A@\235\203\"\302A@!\210\303\304!\305\304!\210\207\306\307\"\207\207" [org--var-syms var calc-recall calc-top 1 calc-pop mapcar org-babel-calc-maybe-resolve-var] 4 (#$ . 2068)])
30 (provide 'ob-calc)