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.el10
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/eshell/em-script.el b/lisp/eshell/em-script.el
index bab26222baf..4a3b84e10e3 100644
--- a/lisp/eshell/em-script.el
+++ b/lisp/eshell/em-script.el
@@ -23,8 +23,7 @@
23 23
24;;; Code: 24;;; Code:
25 25
26(require 'eshell) 26(require 'esh-mode)
27(require 'esh-opt)
28 27
29;;;###autoload 28;;;###autoload
30(progn 29(progn
@@ -57,7 +56,7 @@ This includes when running `eshell-command'."
57 56
58;;; Functions: 57;;; Functions:
59 58
60(defun eshell-script-initialize () 59(defun eshell-script-initialize () ;Called from `eshell-mode' via intern-soft!
61 "Initialize the script parsing code." 60 "Initialize the script parsing code."
62 (make-local-variable 'eshell-interpreter-alist) 61 (make-local-variable 'eshell-interpreter-alist)
63 (setq eshell-interpreter-alist 62 (setq eshell-interpreter-alist
@@ -73,13 +72,14 @@ This includes when running `eshell-command'."
73 ;; to ruin it for other modules 72 ;; to ruin it for other modules
74 (let (eshell-inside-quote-regexp 73 (let (eshell-inside-quote-regexp
75 eshell-outside-quote-regexp) 74 eshell-outside-quote-regexp)
76 (and (not eshell-non-interactive-p) 75 (and (not (bound-and-true-p eshell-non-interactive-p))
77 eshell-login-script 76 eshell-login-script
78 (file-readable-p eshell-login-script) 77 (file-readable-p eshell-login-script)
79 (eshell-do-eval 78 (eshell-do-eval
80 (list 'eshell-commands 79 (list 'eshell-commands
81 (catch 'eshell-replace-command 80 (catch 'eshell-replace-command
82 (eshell-source-file eshell-login-script))) t)) 81 (eshell-source-file eshell-login-script)))
82 t))
83 (and eshell-rc-script 83 (and eshell-rc-script
84 (file-readable-p eshell-rc-script) 84 (file-readable-p eshell-rc-script)
85 (eshell-do-eval 85 (eshell-do-eval