;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(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\212
c\210*\302
!\266\303\304\"\207" [org-babel-error-buffer-name get-buffer-create display-buffer message "Babel evaluation exited with code %S"] 5 (#$ . 168)])
#@243 Run COMMAND on QUERY.
Writes QUERY into a temp-buffer that is processed with
`org-babel--shell-command-on-region'.  If COMMAND succeeds then return
its results, otherwise display STDERR with
`org-babel-eval-error-notify'.

(fn COMMAND QUERY)
(defalias 'org-babel-eval #[514 "\302\303!\304r
q\210\305 \210)\306\307\310\"r\211q\210\311\312\"\216c\210\313\"\262
\247\203-
\314V\203Trq\210\315\316 \"\210)\212\317!\203Orq\210\320\321!\204L\321 \210\304))\304\202V\316 *\207" [org-babel-error-buffer-name buffer-read-only get-buffer-create " *Org-Babel Error*" nil erase-buffer generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] org-babel--shell-command-on-region 0 org-babel-eval-error-notify buffer-string get-buffer derived-mode-p compilation-mode] 8 (#$ . 505)])
#@53 Return the contents of FILE as a string.

(fn FILE)
(defalias 'org-babel-eval-read-file #[257 "\300\301\302\"r\211q\210\303\304\"\216\305!\210\306 *\207" [generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] insert-file-contents buffer-string] 5 (#$ . 1349)])
#@482 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.  This expects the query to be run to be
in the current temp buffer.  This is written into
input-file.  ERROR-BUFFER is the name of the file which
`org-babel-eval' has created to use for any error messages that are
returned.

(fn COMMAND ERROR-BUFFER)
(defalias 'org-babel--shell-command-on-region #[514 "\304\305!
\205\n\304\306!\307 \310
\311	!\204\312!\210\313!\210\314\203+\315D\202,\315\310\n&\262
\203L\316!\203L\317\303!\203H\204L\312!\210\203\203\316!\203\203\320\321!\322
8\262
W\203r\323!q\210d`Zo\204s\324c\210\325\310\"\210d
Zb\266)\312!\210)\207" [shell-file-name default-directory shell-command-switch org-babel--debug-input org-babel-temp-file "ob-input-" "ob-error-" org-babel--get-shell-file-name nil file-remote-p delete-file org-babel--write-temp-buffer-input-file process-file t file-exists-p boundp 0 file-attributes 7 get-buffer-create "\f\n" format-insert-file] 13 (#$ . 1677)])
#@81 Write the contents of the current temp buffer into INPUT-FILE.

(fn INPUT-FILE)
(defalias 'org-babel--write-temp-buffer-input-file #[257 "ed
b\210\300`\301\"\210\302#\210

|\210\303 \207" [push-mark nomsg write-region exchange-point-and-mark] 7 (#$ . 2850)])
#@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 (#$ . 3119)])
#@179 Return system `shell-file-name', defaulting to /bin/sh.
Unfortunately, `executable-find' does not support file name
handlers.  Therefore, we could use it in the local case only.
(defalias 'org-babel--get-shell-file-name #[0 "\302!\204\303	!\203	\207\304\302!	P!\203	\207\305\207" [default-directory shell-file-name file-remote-p executable-find file-executable-p "/bin/sh"] 3 (#$ . 3372)])
(provide 'ob-eval)