;ELC ;;; Compiled ;;; in Emacs version 29.4 ;;; with all optimizations. (byte-code "\300\301!\210\302 \303\232\204\304\305\306\"\210\300\207" [require org-macs org-release "9.6.15" warn "Org version mismatch.\nThis warning usually appears when a built-in Org version is loaded\nprior to the more recent Org version.\n\nVersion mismatch is commonly encountered in the following situations:\n\n1. Emacs is loaded using literate Org config and more recent Org\n version is loaded inside the file loaded by `org-babel-load-file'.\n `org-babel-load-file' triggers the built-in Org version clashing\n the newer Org version attempt to be loaded later.\n\n It is recommended to move the Org loading code before the\n `org-babel-load-file' call.\n\n2. New Org version is loaded manually by setting `load-path', but some\n other package depending on Org is loaded before the `load-path' is\n configured.\n This \"other package\" is triggering built-in Org version, again\n causing the version mismatch.\n\n It is recommended to set `load-path' as early in the config as\n possible.\n\n3. New Org version is loaded using straight.el package manager and\n other package depending on Org is loaded before straight triggers\n loading of the newer Org version.\n\n It is recommended to put\n\n %s\n\n early in the config. Ideally, right after the straight.el\n bootstrap. Moving `use-package' :straight declaration may not be\n sufficient if the corresponding `use-package' statement is\n deferring the loading.\n\n4. A new Org version is synchronized with Emacs git repository and\n stale .elc files are still left from the previous build.\n\n It is recommended to remove .elc files from lisp/org directory and\n re-compile." "(straight-use-package 'org)"] 3) (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\212n\204\302c\210c\210\303\304\"c*\210\305!\266\306\307\"\207" [org-babel-error-buffer-name get-buffer-create "\n" format "[ Babel evaluation exited with code %S ]" display-buffer message "Babel evaluation exited with code %S"] 6 (#$ . 1870)])#@290 Run COMMAND on QUERY. Return standard output produced by COMMAND. If COMMAND exits with a non-zero code or produces error output, show it with `org-babel-eval-error-notify'. Writes QUERY into a temp-buffer that is processed with `org-babel--shell-command-on-region'. (fn COMMAND QUERY) (defalias 'org-babel-eval #[514 "\302\303!\304rq\210\305 )\210\306\307\310\"r\211q\210\311\312\"\216\313\261\210\314\"\262rq\210\315 )\247\203?\316V\204?\211\211\317\230\262\204a\320\"\210\212\321!\203[rq\210\322\323!\204X\323 \210\304))\315 \202c\315 *\207" [org-babel-error-buffer-name buffer-read-only get-buffer-create " *Org-Babel Error*" nil erase-buffer generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] "\n" org-babel--shell-command-on-region buffer-string 0 "" org-babel-eval-error-notify get-buffer derived-mode-p compilation-mode] 9 (#$ . 2294)])#@53 Return the contents of FILE as a string. (fn FILE) (defalias 'org-babel-eval-read-file #[257 "\300\301\302\"r\211q\210\303\304\"\216\305!\210\306 *\207" [generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] insert-file-contents buffer-string] 5 (#$ . 3230)])#@482 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. This expects the query to be run to be in the current temp buffer. This is written into input-file. ERROR-BUFFER is the name of the file which `org-babel-eval' has created to use for any error messages that are returned. (fn COMMAND ERROR-BUFFER) (defalias 'org-babel--shell-command-on-region #[514 "\304\305!\205\n\304\306!\307 \310\311 !\204\312!\210\313!\210\314\203+\315D\202,\315\310\n &\262\203L\316!\203L\317\303!\203H \204L\312!\210\203\203\316!\203\203\320\321!\3228\262W\203r\323!q\210d`Zo\204s\324c\210\325\310\"\210dZb)\266\312!\210)\207" [shell-file-name default-directory shell-command-switch org-babel--debug-input org-babel-temp-file "ob-input-" "ob-error-" org-babel--get-shell-file-name nil file-remote-p delete-file org-babel--write-temp-buffer-input-file process-file t file-exists-p boundp 0 file-attributes 7 get-buffer-create "\f\n" format-insert-file] 13 (#$ . 3557)])#@81 Write the contents of the current temp buffer into INPUT-FILE. (fn INPUT-FILE) (defalias 'org-babel--write-temp-buffer-input-file #[257 "edb\210\300`\301\"\210\302#\210|\210\303 \207" [push-mark nomsg write-region exchange-point-and-mark] 7 (#$ . 4729)])#@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 (#$ . 4997)])#@179 Return system `shell-file-name', defaulting to /bin/sh. Unfortunately, `executable-find' does not support file name handlers. Therefore, we could use it in the local case only. (defalias 'org-babel--get-shell-file-name #[0 "\302!\204\303 !\203 \207\304\302! P!\203 \207\305\207" [default-directory shell-file-name file-remote-p executable-find file-executable-p "/bin/sh"] 3 (#$ . 5249)]) (provide 'ob-eval)