;ELC ;;; Compiled ;;; in Emacs version 24.5.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*") #@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 (#$ . 494)]) #@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) "\306\307!\310r q\210\311 \210)\312\313!r\nq\210\314\216 c\210\315ed\f $\211\247\203-\316V\203Ur q\210\317\320 \"\210)\212\321 !\203Pr q\210\322\323!\204L\323 \210\310))\310\202W\320 -\207" [exit-code err-buff #1=#:temp-buffer body cmd org-babel-error-buffer-name 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 0 org-babel-eval-error-notify buffer-string get-buffer derived-mode-p compilation-mode buffer-read-only] 6 (#$ . 843)]) #@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 (#$ . 1605)]) #@231 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.  (defalias 'org-babel--shell-command-on-region #[(start end command 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!\210W b\210\317`\320\"\210\321 #\210|\210\322\n \f\203c\323\fD\202d\323\315!\"& \203t\324 \210) \203\216\325 !\203\216\326\327!\203\212\204\216\316 !\210\f\203\304\325\f!\203\304\330\331\332\f!8W\203\300r\333!q\210d`Z#o\204\264\334c\210\335\f\315\"\210d#Zb\210*\316\f!\210 ,\207" [error-buffer default-directory shell-file-name exit-status error-file input-file 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 org-babel--debug-input 0 7 file-attributes get-buffer-create "\f\n" format-insert-file start end swap shell-command-switch command pos-from-end] 7 (#$ . 1931)]) #@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 (#$ . 3134)]) (provide 'ob-eval)