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

Chizi123
2018-11-21 5ddac8bd2392ec5b64392e8750d725029bf5aa79
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 (require 'org-macs)
16 (defvar org-babel-error-buffer-name "*Org-Babel Error Output*")
17 #@99 Open a buffer to display STDERR and a message with the value of EXIT-CODE.
18
19 (fn EXIT-CODE STDERR)
20 (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)])
21 #@135 Run CMD on BODY.
22 If CMD succeeds then return its results, otherwise display
23 STDERR with `org-babel-eval-error-notify'.
24
25 (fn CMD BODY)
26 (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)])
27 #@53 Return the contents of FILE as a string.
28
29 (fn FILE)
30 (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)])
31 #@267 Execute COMMAND in an inferior shell with region as input.
32
33 Stripped down version of shell-command-on-region for internal use
34 in Babel only.  This lets us work around errors in the original
35 function in various versions of Emacs.
36
37 (fn START END COMMAND ERROR-BUFFER)
38 (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)])
39 #@112 Delete the contents of the Org code block error buffer.
40 This buffer is named by `org-babel-error-buffer-name'.
41 (defalias 'org-babel-eval-wipe-error-buffer #[0 "\301!\205rq\210ed|)\207" [org-babel-error-buffer-name get-buffer] 2 (#$ . 3073)])
42 (provide 'ob-eval)