aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/eshell/em-script.el
diff options
context:
space:
mode:
authorStephen Leake2019-04-11 14:00:02 -0700
committerStephen Leake2019-04-11 14:00:02 -0700
commit7ba7def5caf7ec9d9bebffff489f0a658229fbda (patch)
treee0cfcb59937ca0528fb81769d7d48a904a91f5dc /lisp/eshell/em-script.el
parent7768581172e11be52b1fcd8224f4594e126bbdb7 (diff)
parentde238b39e335c6814283faa171b35145f124edf2 (diff)
downloademacs-7ba7def5caf7ec9d9bebffff489f0a658229fbda.tar.gz
emacs-7ba7def5caf7ec9d9bebffff489f0a658229fbda.zip
Merge commit 'de238b39e335c6814283faa171b35145f124edf2'
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