(nnmail-extra-headers): Add defvar.

[gnu-emacs] / lisp / eshell / em-script.el

diff --git a/lisp/eshell/em-script.el b/lisp/eshell/em-script.el
index fb80bfe9f5992627ae67ebe47eaa99b3e3633479..d67c5e063c9b3971d0212994c057865a438a6d54 100644 (file)
--- a/lisp/eshell/em-script.el
+++ b/lisp/eshell/em-script.el
@@ -1,6 +1,9 @@
-;;; em-script --- Eshell script files
+;;; em-script.el --- Eshell script files
 
-;; Copyright (C) 1999, 2000 Free Software 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.
 
@@ -16,13 +19,15 @@
 
 ;; 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."
@@ -61,6 +66,9 @@ This includes when running `eshell-command'."
                  (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
@@ -114,6 +122,8 @@ Invoke the Eshell commands in FILE in a subshell, binding ARGS to $1,
 $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
@@ -125,6 +135,9 @@ Invoke the Eshell commands in FILE within the current shell
 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