-;;; em-script --- Eshell script files
+;;; em-script.el --- Eshell script files
-;; Copyright (C) 1999, 2000 Free Sofware Foundation
+;; Copyright (C) 1999, 2000, 2002, 2003, 2004,
+;; 2005 Free Software Foundation, Inc.
+
+;; Author: John Wiegley <johnw@gnu.org>
;; This file is part of GNU Emacs.
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING. If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
+;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
(provide 'em-script)
(eval-when-compile (require 'esh-maint))
+(require 'eshell)
+
(defgroup eshell-script nil
"This module allows for the execution of files containing Eshell
commands, as a script file."
(string= (file-name-nondirectory file)
"eshell")) . eshell/source)
eshell-interpreter-alist))
+ (make-local-variable 'eshell-complex-commands)
+ (setq eshell-complex-commands
+ (append '("source" ".") eshell-complex-commands))
;; these two variables are changed through usage, but we don't want
;; to ruin it for other modules
(let (eshell-inside-quote-regexp
$2, etc.")
(eshell-source-file (car args) (cdr args) t)))
+(put 'eshell/source 'eshell-no-numeric-conversions t)
+
(defun eshell/. (&rest args)
"Source a file in the current environment."
(eshell-eval-using-options
environment, binding ARGS to $1, $2, etc.")
(eshell-source-file (car args) (cdr args))))
+(put 'eshell/. 'eshell-no-numeric-conversions t)
+
;;; Code:
+;;; arch-tag: a346439d-5ba8-4faf-ac2b-3aacfeaa4647
;;; em-script.el ends here