;ELC ;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:40:30 2003 ;;; from file /home/pot/gnu/emacs-pretest.new/lisp/eshell/em-script.el ;;; in Emacs version 21.3 ;;; with bytecomp version 2.85.4.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`em-script.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\302\303\304\305\306\307\310\311&\207" [provide em-script 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] 8) #@60 *A list of functions to call when loading `eshell-script'. (custom-declare-variable 'eshell-script-load-hook ''(eshell-script-initialize) '(#$ . -899) :type 'hook :group 'eshell-script) #@161 *If non-nil, a file to invoke when starting up Eshell interactively. This file should be a file containing Eshell commands, where comment lines begin with '#'. (custom-declare-variable 'eshell-login-script '(concat eshell-directory-name "login") '(#$ . -1092) :type 'file :group 'eshell-script) #@104 *If non-nil, a file to invoke whenever Eshell is started. This includes when running `eshell-command'. (custom-declare-variable 'eshell-rc-script '(concat eshell-directory-name "profile") '(#$ . -1394) :type 'file :group 'eshell-script) #@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 (#$ . 1637)]) #@85 Execute a series of Eshell commands in FILE, passing ARGS. Comments begin with '#'. (defalias 'eshell-source-file #[(file &optional args subcommand-p) "`d\306\307db\210\310\f!\210db\210\311\312\313\314\315\fDD\316\315 DDD\317\n`B!\2032\320D)E\n`|\210 b\210\",\207" [after-change-functions inhibit-point-motion-hooks here orig file args t nil insert-file-contents throw eshell-replace-command let eshell-command-name quote eshell-command-arguments eshell-parse-command eshell-as-subcommand cmd subcommand-p] 7 (#$ . 2354) "f"]) #@42 Source a file in a subshell environment. (defalias 'eshell/source #[(&rest args) "\306!\307\310\")\311\211\211\211\211\211\211\211\312\313\314\315#. \207" [args temp-args ext-command last-value usage-msg eshell-option-stub 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.") ((eshell-source-file (car args) (cdr args) t))] 8 (#$ . 2902)]) (put 'eshell/source 'eshell-no-numeric-conversions t) #@43 Source a file in the current environment. (defalias 'eshell/\. #[(&rest args) "\306!\307\310\")\311\211\211\211\211\211\211\211\312\313\314\315#. \207" [args temp-args ext-command last-value usage-msg eshell-option-stub 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.") ((eshell-source-file (car args) (cdr args)))] 8 (#$ . 3494)]) (put 'eshell/\. 'eshell-no-numeric-conversions t)