| Current Path : /usr/share/emacs/24.3/lisp/eshell/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/eshell/em-script.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:10:52 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/eshell/em-script.el
;;; in Emacs version 24.3.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\305\315\316\317\320\321\311\304& \210\313\322\323\324\320\325\311\304&\210\313\326\327\330\320\325\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 "A list of functions to call when loading `eshell-script'." :version "24.1" :type hook eshell-login-script (expand-file-name "login" eshell-directory-name) "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 (expand-file-name "profile" eshell-directory-name) "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 #[nil "\306\300!\210\307B\306\301!\210\310\311 \"\312\211\f\204,
\203, \313
!\203, \314\315\316\317\215D\320\"\210\205@ \313!\205@ \314\315\316\321\215D\320\"*\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 ((lambda (file) (string= (file-name-nondirectory file) "eshell")) . eshell/source) append ("source" ".") nil file-readable-p eshell-do-eval eshell-commands eshell-replace-command (eshell-source-file eshell-login-script) t (eshell-source-file eshell-rc-script) eshell-rc-script] 4 (#$ . 1517)])
#@85 Execute a series of Eshell commands in FILE, passing ARGS.
Comments begin with '#'.
(defalias 'eshell-source-file #[(file &optional args subcommand-p) "`d\306db\210\307 \306\211 \306 \310\211 \310 \311\216\312!\210db\210\313\314\315\316\317DD\320\317DDD\321 `B! \203H \322D)E `|\210\nb\210\". \207" [inhibit-point-motion-hooks here orig #1=#:modified buffer-undo-list inhibit-read-only t buffer-modified-p nil ((byte-code "\204 \301\302!\210\302\207" [#1# 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 inhibit-modification-hooks deactivate-mark buffer-file-name buffer-file-truename file args cmd subcommand-p] 8 (#$ . 2234) "f"])
#@42 Source a file in a subshell environment.
(defalias 'eshell/source #[(&rest args) "\305!\306\307\")\310\211\211\211 \311\312\313\314#-\207" [args temp-args ext-command last-value usage-msg eshell-flatten-list mapcar eshell-stringify nil eshell-do-opt "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.") #[nil "\301@A\302#\207" [args eshell-source-file t] 4]] 4 (#$ . 3034)])
(put 'eshell/source 'eshell-no-numeric-conversions t)
#@43 Source a file in the current environment.
(defalias 'eshell/\. #[(&rest args) "\305!\306\307\")\310\211\211\211 \311\312\313\314#-\207" [args temp-args ext-command last-value usage-msg eshell-flatten-list mapcar eshell-stringify nil eshell-do-opt "." ((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.") #[nil "\301@A\"\207" [args eshell-source-file] 3]] 4 (#$ . 3596)])
(byte-code "\300\301\302\303#\210\304\305!\207" [put eshell/\. eshell-no-numeric-conversions t provide em-script] 4)