;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!\203Y rq\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\274 r\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!\205 rq\210ed|)\207" [org-babel-error-buffer-name get-buffer] 2 (#$ . 3073)])
|
(provide 'ob-eval)
|
