;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301!\210\302\303\304\305\306\307\310\311&\210\312\313\314\315\316DD\317\320\321\322\323\310\303&	\210\312\324\314\315\325DD\326\322\327\310\303&\210\312\330\314\315\331DD\332\322\327\310\303&\207" [require esh-mode custom-declare-group eshell-script nil "This module allows for the execution of files containing Eshell\ncommands, as a script file." :tag "Running script files." :group eshell-module custom-declare-variable eshell-script-load-hook funcall function #[0 "\300\207" [nil] 1 #1=""] "A list of functions to call when loading `eshell-script'." :version "24.1" :type hook eshell-login-script #[0 "\301\302\"\207" [eshell-directory-name expand-file-name "login"] 3 #1#] "If non-nil, a file to invoke when starting up Eshell interactively.\nThis file should be a file containing Eshell commands, where comment\nlines begin with `#'." file eshell-rc-script #[0 "\301\302\"\207" [eshell-directory-name expand-file-name "profile"] 3 #1#] "If non-nil, a file to invoke whenever Eshell is started.\nThis includes when running `eshell-command'."] 10)
#@37 Initialize the script parsing code.
(defalias 'eshell-script-initialize #[0 "\306\300!\210\307\310BB\306\301!\210\311\312	\"\313\211\314\304!\203!\f\2049
\2039\315
!\2039\316\317\32025\321
!0D\322\"\210\205S\315!\205S\316\317\3202P\321!0D\322\"*\207" [eshell-interpreter-alist eshell-complex-commands eshell-outside-quote-regexp eshell-inside-quote-regexp eshell-non-interactive-p eshell-login-script make-local-variable #[514 "\300!\205\301!\302\230\207" [file-regular-p file-name-nondirectory "eshell"] 4 "\n\n(fn FILE ARGS)"] eshell/source append ("source" ".") nil boundp file-readable-p eshell-do-eval eshell-commands eshell-replace-command eshell-source-file t eshell-rc-script] 4 (#$ . 1158)])
#@124 Execute a series of Eshell commands in FILE, passing ARGS.
Comments begin with `#'.

(fn FILE &optional ARGS SUBCOMMAND-P)
(defalias 'eshell-source-file #[769 "`d\304db\210\305 \304\211\304\306\307\"\216\310!\210db\210\311\312\313\314\315\nDD\316\315\nDDD\317`B!\203<\320
D\262
\211\262
E`|\210b\210\",\262
)\207" [inhibit-point-motion-hooks buffer-undo-list inhibit-read-only inhibit-modification-hooks t buffer-modified-p make-closure #[0 "\300?\205\301\302!\207" [V0 restore-buffer-modified-p nil] 2] insert-file-contents throw eshell-replace-command let eshell-command-name quote eshell-command-arguments eshell-parse-command eshell-as-subcommand] 14 (#$ . 1889)])
#@59 Source a file in a subshell environment.

(fn &rest ARGS)
(defalias 'eshell/source #[128 "\300
!\301\302\"\262
\303\304\305#\306
@A\307#\207" [flatten-tree mapcar eshell-stringify eshell--do-opts "source" ((104 "help" nil nil "show this usage screen") :show-usage :usage "FILE [ARGS]\nInvoke the Eshell commands in FILE in a subshell, binding ARGS to $1,\n$2, etc.") eshell-source-file t] 7 (#$ . 2582)])
(put 'eshell/source 'eshell-no-numeric-conversions t)
#@60 Source a file in the current environment.

(fn &rest ARGS)
(defalias 'eshell/\. #[128 "\300
!\301\302\"\262
\303\304\305#\306
@A\"\207" [flatten-tree mapcar eshell-stringify eshell--do-opts "." ((104 "help" nil nil "show this usage screen") :show-usage :usage "FILE [ARGS]\nInvoke the Eshell commands in FILE within the current shell\nenvironment, binding ARGS to $1, $2, etc.") eshell-source-file] 6 (#$ . 3050)])
(byte-code "\300\301\302\303#\210\304\305!\207" [put eshell/\. eshell-no-numeric-conversions t provide em-script] 4)