aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/eshell/em-script.el
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/eshell/em-script.el')
-rw-r--r--lisp/eshell/em-script.el18
1 files changed, 2 insertions, 16 deletions
diff --git a/lisp/eshell/em-script.el b/lisp/eshell/em-script.el
index e8459513f39..e0bcd8b099f 100644
--- a/lisp/eshell/em-script.el
+++ b/lisp/eshell/em-script.el
@@ -113,27 +113,13 @@ Comments begin with `#'."
113 113
114(defun eshell/source (&rest args) 114(defun eshell/source (&rest args)
115 "Source a file in a subshell environment." 115 "Source a file in a subshell environment."
116 (eshell-eval-using-options 116 (eshell-source-file (car args) (cdr args) t))
117 "source" args
118 '((?h "help" nil nil "show this usage screen")
119 :show-usage
120 :usage "FILE [ARGS]
121Invoke the Eshell commands in FILE in a subshell, binding ARGS to $1,
122$2, etc.")
123 (eshell-source-file (car args) (cdr args) t)))
124 117
125(put 'eshell/source 'eshell-no-numeric-conversions t) 118(put 'eshell/source 'eshell-no-numeric-conversions t)
126 119
127(defun eshell/. (&rest args) 120(defun eshell/. (&rest args)
128 "Source a file in the current environment." 121 "Source a file in the current environment."
129 (eshell-eval-using-options 122 (eshell-source-file (car args) (cdr args)))
130 "." args
131 '((?h "help" nil nil "show this usage screen")
132 :show-usage
133 :usage "FILE [ARGS]
134Invoke the Eshell commands in FILE within the current shell
135environment, binding ARGS to $1, $2, etc.")
136 (eshell-source-file (car args) (cdr args))))
137 123
138(put 'eshell/. 'eshell-no-numeric-conversions t) 124(put 'eshell/. 'eshell-no-numeric-conversions t)
139 125