ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/eshell/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/eshell/em-script.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.1
;;; 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\300\302!\210\303\304\305\306\307\310\311\312&\210\313\314\315\316\317DD\320\321\322\323\324\311\304& \210\313\325\315\316\326DD\327\323\330\311\304&\210\313\331\315\316\332DD\333\323\330\311\304&\207" [require eshell esh-opt 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\f\2043
\2033 \314
!\2033 \315\316\3172/ \320
!0D\321\"\210\205M \314!\205M \315\316\3172J \320!0D\321\"*\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 file-readable-p eshell-do-eval eshell-commands eshell-replace-command eshell-source-file t eshell-rc-script] 4 (#$ . 1489)])
#@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 (#$ . 2171) "f"])
#@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" [eshell-flatten-list 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 (#$ . 2901)])
(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" [eshell-flatten-list 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 (#$ . 3380)])
(byte-code "\300\301\302\303#\210\304\305!\207" [put eshell/\. eshell-no-numeric-conversions t provide em-script] 4)
Kontol Shell Bypass