| commit | author | age | ||
| 76bbd0 | 1 | ;ELC |
| C | 2 | ;;; Compiled |
| 3 | ;;; in Emacs version 26.1 | |
| 4 | ;;; with all optimizations. | |
| 5 | ||
| 6 | ;;; This file uses dynamic docstrings, first added in Emacs 19.29. | |
| 7 | ||
| 8 | ;;; This file does not contain utf-8 non-ASCII characters, | |
| 9 | ;;; and so can be loaded in Emacs versions earlier than 23. | |
| 10 | ||
| 11 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 12 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 13 | ||
| 14 | ||
| 15 | (require 'org-macs) | |
| 16 | (defvar org-babel-error-buffer-name "*Org-Babel Error Output*") | |
| 17 | #@99 Open a buffer to display STDERR and a message with the value of EXIT-CODE. | |
| 18 | ||
| 19 | (fn EXIT-CODE STDERR) | |
| 20 | (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)]) | |
| 21 | #@135 Run CMD on BODY. | |
| 22 | If CMD succeeds then return its results, otherwise display | |
| 23 | STDERR with `org-babel-eval-error-notify'. | |
| 24 | ||
| 25 | (fn CMD BODY) | |
| 26 | (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!\203Y rq\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)]) | |
| 27 | #@53 Return the contents of FILE as a string. | |
| 28 | ||
| 29 | (fn FILE) | |
| 30 | (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)]) | |
| 31 | #@267 Execute COMMAND in an inferior shell with region as input. | |
| 32 | ||
| 33 | Stripped down version of shell-command-on-region for internal use | |
| 34 | in Babel only. This lets us work around errors in the original | |
| 35 | function in various versions of Emacs. | |
| 36 | ||
| 37 | (fn START END COMMAND ERROR-BUFFER) | |
| 38 | (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\300 \323!\203\300 \325\326\327!8W\203\274 r\330!q\210d`Zo\204\260 \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 7 file-attributes get-buffer-create "\f\n" format-insert-file] 16 (#$ . 1952)]) | |
| 39 | #@112 Delete the contents of the Org code block error buffer. | |
| 40 | This buffer is named by `org-babel-error-buffer-name'. | |
| 41 | (defalias 'org-babel-eval-wipe-error-buffer #[0 "\301!\205 rq\210ed|)\207" [org-babel-error-buffer-name get-buffer] 2 (#$ . 3073)]) | |
| 42 | (provide 'ob-eval) | |
