;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:40 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/org/ob-eval.el
;;; in Emacs version 24.3.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.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(defvar org-babel-error-buffer-name "*Org-Babel Error Output*")
#@76 Open a buffer to display STDERR and a message with the value of EXIT-CODE.
(defalias 'org-babel-eval-error-notify #[(exit-code stderr) "\304!r	q\210db\210\212\nc\210*\305	!\210)\306\307\"\207" [org-babel-error-buffer-name buf stderr exit-code get-buffer-create display-buffer message "Babel evaluation exited with code %S"] 3 (#$ . 618)])
#@120 Run CMD on BODY.
If CMD succeeds then return its results, otherwise display
STDERR with `org-babel-eval-error-notify'.
(defalias 'org-babel-eval #[(cmd body) "\305\306!\307r	q\210\310 \210)\311\312!r\nq\210\313\216c\210\314ed\f\315\316	&\211\247\2030\317V\203?r	q\210\320\321 \"\210)\307\202A\321 -\207" [exit-code err-buff #1=#:temp-buffer body cmd get-buffer-create " *Org-Babel Error*" nil erase-buffer generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) org-babel-shell-command-on-region t replace 0 org-babel-eval-error-notify buffer-string] 8 (#$ . 967)])
#@42 Return the contents of FILE as a string.
(defalias 'org-babel-eval-read-file #[(file) "\302\303!rq\210\304\216\305	!\210\306 +\207" [#1=#:temp-buffer file generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) insert-file-contents buffer-string] 2 (#$ . 1604)])
#@2450 Execute COMMAND in an inferior shell with region as input.

Fixes bugs in the emacs 23.1.1 version of `shell-command-on-region'

Normally display output (if any) in temp buffer `*Shell Command Output*';
Prefix arg means replace the region with it.  Return the exit code of
COMMAND.

To specify a coding system for converting non-ASCII characters in
the input and output to the shell command, use
\[universal-coding-system-argument] before this command.  By
default, the input (from the current buffer) is encoded in the
same coding system that will be used to save the file,
`buffer-file-coding-system'.  If the output is going to replace
the region, then it is decoded from that same coding system.

The noninteractive arguments are START, END, COMMAND,
OUTPUT-BUFFER, REPLACE, ERROR-BUFFER, and DISPLAY-ERROR-BUFFER.
Noninteractive callers can specify coding systems by binding
`coding-system-for-read' and `coding-system-for-write'.

If the command generates output, the output may be displayed
in the echo area or in a buffer.
If the output is short enough to display in the echo area
(determined by the variable `max-mini-window-height' if
`resize-mini-windows' is non-nil), it is shown there.  Otherwise
it is displayed in the buffer `*Shell Command Output*'.  The output
is available in that buffer in both cases.

If there is output and an error, a message about the error
appears at the end of the output.

If there is no output, or if output is inserted in the current buffer,
then `*Shell Command Output*' is deleted.

If the optional fourth argument OUTPUT-BUFFER is non-nil,
that says to put the output in some other buffer.
If OUTPUT-BUFFER is a buffer or buffer name, put the output there.
If OUTPUT-BUFFER is not a buffer and not nil,
insert output in the current buffer.
In either case, the output is inserted after point (leaving mark after it).

If REPLACE, the optional fifth argument, is non-nil, that means insert
the output in place of text from START to END, putting point and mark
around it.

If optional sixth argument ERROR-BUFFER is non-nil, it is a buffer
or buffer name to which to direct the command's standard error output.
If it is nil, error output is mingled with regular output.
If DISPLAY-ERROR-BUFFER is non-nil, display the error buffer if there
were any errors.  (This is always t, interactively.)
In an interactive call, the variable `shell-command-default-error-buffer'
specifies the value of ERROR-BUFFER.
(defalias 'org-babel-shell-command-on-region #[(start end command &optional output-buffer replace error-buffer display-error-buffer) "\306\307!\205\n\306\310!\311	!\204\312\n!\203\n\202)\313\311	!\nP!\203(\n\202)\314\315\311	!\2048\316\f!\210!\204O\"\203\237\317\"!\204\237\";\204\237!\205Y#$W%#b\210!\203i\320`\321\"\210\322#$
#\210#$|\210\323\n
\f\203\205\"\fD\202\206\324\315&'&!\203\233%\203\233\325 \210)\202
\326\"\206\246\327!(\330\216(p=\203\350\315)#$]d|\210e#$^|\210\322ed
#\210ed|\210\323\n
\f\203\334\324\fD\202\335\324\315&'&\202
	*r(q\210\315)\"\204\373*\331 \210*\323\n\315\f\203

(\fD\202
(\315&'&*
\203&
\332
!\203&
\316
!\210\f\203f
\332\f!\203f
\333\334\335\f!8W\203b
r\326!q\210d`Z+o\204L
\336c\210\337\f\315\"\210d+Zb\210),\203a
\340p!\210)\316\f!\210,\207" [error-buffer default-directory shell-file-name exit-status error-file input-file org-babel-temp-file "input-" "scor-" file-remote-p executable-find file-executable-p "/bin/sh" nil delete-file bufferp push-mark nomsg write-region process-file t exchange-point-and-mark get-buffer-create "*Shell Command Output*" ((byte-code "rq\210	\204\f\305\202#	;\203\306\307	\"\202#	\310\232?\205#\306\311	\")rq\210deV)\2037\312!\210\202x\203I\310\313\314!8W\203I\315\202J\316	\204V\317\320!\210\202w	\310\232\203d\317\321\f\"\210\202w	;\203q\317\322	\"\210\202w\317\323	\f#\210)\306\207" [buffer exit-status mode-line-process error-file output " - Error" format " - Signal [%s]" 0 " - Exit [%d]" display-message-or-buffer 7 file-attributes "some error output" "no output" message "(Shell command failed with error)" "(Shell command succeeded with %s)" "(Shell command killed by signal %s)" "(Shell command failed with code %d and %s)"] 4)) erase-buffer file-exists-p 0 7 file-attributes "\f\n" format-insert-file display-buffer replace output-buffer start end swap shell-command-switch command buffer buffer-read-only directory pos-from-end display-error-buffer] 7 (#$ . 1931) (let (string) (if (mark) nil (error "The mark is not set now, so there is no region")) (setq string (read-shell-command "Shell command on region: ")) (list (region-beginning) (region-end) string current-prefix-arg current-prefix-arg shell-command-default-error-buffer t))])
#@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 #[nil "\301!\205rq\210ed|)\207" [org-babel-error-buffer-name get-buffer] 2 (#$ . 6711)])
(provide 'ob-eval)