;ELC ;;; Compiled ;;; in Emacs version 26.3 ;;; 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)