%PDF- %PDF-
Mini Shell

Mini Shell

Direktori : /usr/local/share/emacs/27.2/lisp/org/
Upload File :
Create Path :
Current File : //usr/local/share/emacs/27.2/lisp/org/ob-eval.elc

;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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\303\323!\203\303\325\326!\3278\262W\203\277r\330!q\210d`Zo\204\263\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 file-attributes 7 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 (#$ . 3079)])
(provide 'ob-eval)

Zerion Mini Shell 1.0