Ignore esh-groups.el.

[bpt/emacs.git] / lisp / eshell / em-script.el

diff --git a/lisp/eshell/em-script.el b/lisp/eshell/em-script.el
index d6a8ea5..af7250b 100644 (file)
--- a/lisp/eshell/em-script.el
+++ b/lisp/eshell/em-script.el
@@ -1,4 +1,4 @@
-;;; em-script --- Eshell script files
+;;; em-script.el --- Eshell script files
 
 ;; Copyright (C) 1999, 2000 Free Software Foundation
 
@@ -63,6 +63,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
@@ -116,6 +119,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
@@ -127,6 +132,8 @@ 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:
 
 ;;; em-script.el ends here