%PDF-
%PDF-
Mini Shell
Mini Shell
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(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] "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] "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] "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!\301\230\207" [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 (#$ . 1468)])
#@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\310\311\312!\313\"\314$\216\315!\210db\210\316\317\320\321\322\nDD\323\322\nDDD\324`B!\203C \325D\262\211\262E`|\210b\210\",\262)\207" [inhibit-point-motion-hooks buffer-undo-list inhibit-read-only inhibit-modification-hooks t buffer-modified-p make-byte-code 0 "\300?\205 \301\302!\207" vconcat vector [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 (#$ . 2172)])
#@59 Source a file in a subshell environment.
(fn &rest ARGS)
(defalias 'eshell/source #[128 "\300!\301\302\"\262\303\304\305#\211\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] 8 (#$ . 2898)])
(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#\211\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] 7 (#$ . 3370)])
(byte-code "\300\301\302\303#\210\304\305!\207" [put eshell/\. eshell-no-numeric-conversions t provide em-script] 4)
Zerion Mini Shell 1.0