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

Chizi123
2018-11-21 e75a20334813452c6912c090d70a0de2c805f94d
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
;ELC
;;; Compiled
;;; in Emacs version 26.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 'org-macs)
(defvar org-babel-error-buffer-name "*Org-Babel Error Output*")
#@99 Open a buffer to display STDERR and a message with the value of EXIT-CODE.
 
(fn EXIT-CODE STDERR)
(defalias 'org-babel-eval-error-notify #[514 "\301!r\211q\210db\210\212c\210*\302!\266\303\304\"\207" [org-babel-error-buffer-name get-buffer-create display-buffer message "Babel evaluation exited with code %S"] 5 (#$ . 492)])
#@135 Run CMD on BODY.
If CMD succeeds then return its results, otherwise display
STDERR with `org-babel-eval-error-notify'.
 
(fn CMD BODY)
(defalias 'org-babel-eval #[514 "\302\303!\304rq\210\305 \210)\306\307!r\211q\210\310\311\312\313\314!\315\"\316$\216c\210\317ed$\262\247\2037\311V\203^rq\210\320\321 \"\210)\212\322!\203Yrq\210\323\324!\204V\324 \210\304))\304\202`\321 *\262\207" [org-babel-error-buffer-name buffer-read-only get-buffer-create " *Org-Babel Error*" nil erase-buffer generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205    \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 org-babel--shell-command-on-region org-babel-eval-error-notify buffer-string get-buffer derived-mode-p compilation-mode] 11 (#$ . 829)])
#@53 Return the contents of FILE as a string.
 
(fn FILE)
(defalias 'org-babel-eval-read-file #[257 "\300\301!r\211q\210\302\303\304\305\306!\307\"\310$\216\311!\210\312 *\207" [generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205    \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 insert-file-contents buffer-string] 8 (#$ . 1598)])
#@267 Execute COMMAND in an inferior shell with region as input.
 
Stripped down version of shell-command-on-region for internal use
in Babel only.  This lets us work around errors in the original
function in various versions of Emacs.
 
(fn START END COMMAND ERROR-BUFFER)
(defalias 'org-babel--shell-command-on-region #[1028 "\304\305!\205\n\304\306!\307!\204\310    !\203    \202)\311\307!    P!\203(    \202)\312\313\307!\2046\314!\210Wb\210\315`\316\"\210\317        #\210|\210\320    \203c\321D\202d\321\313\n\f&\262\211\203s\322 \210\210\203\214\323!\203\214\324\303!\203\210 \204\214\314!\210\203\300\323!\203\300\325\326\327!8W\203\274r\330!q\210d`Zo\204\260\331c\210\332\313\"\210dZb\266)\314!\210)\207" [default-directory shell-file-name shell-command-switch org-babel--debug-input org-babel-temp-file "ob-input-" "ob-error-" file-remote-p executable-find file-executable-p "/bin/sh" nil delete-file push-mark nomsg write-region process-file t exchange-point-and-mark file-exists-p boundp 0 7 file-attributes get-buffer-create "\f\n" format-insert-file] 16 (#$ . 1952)])
#@112 Delete the contents of the Org code block error buffer.
This buffer is named by `org-babel-error-buffer-name'.
(defalias 'org-babel-eval-wipe-error-buffer #[0 "\301!\205rq\210ed|)\207" [org-babel-error-buffer-name get-buffer] 2 (#$ . 3073)])
(provide 'ob-eval)