diff options
Diffstat (limited to 'lisp/eshell')
| -rw-r--r-- | lisp/eshell/esh-ext.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/eshell/esh-ext.el b/lisp/eshell/esh-ext.el index c0add0443cb..52df1587d5f 100644 --- a/lisp/eshell/esh-ext.el +++ b/lisp/eshell/esh-ext.el | |||
| @@ -226,12 +226,12 @@ causing the user to wonder if anything's really going on..." | |||
| 226 | Adds the given PATH to $PATH.") | 226 | Adds the given PATH to $PATH.") |
| 227 | (if args | 227 | (if args |
| 228 | (progn | 228 | (progn |
| 229 | (setq eshell-path-env (getenv "PATH")) | 229 | (setq eshell-path-env (getenv "PATH") |
| 230 | (dolist (dir (if prepend (nreverse args) args)) | 230 | args (mapconcat 'identity args path-separator) |
| 231 | (setq eshell-path-env | 231 | eshell-path-env |
| 232 | (if prepend | 232 | (if prepend |
| 233 | (concat dir path-separator eshell-path-env) | 233 | (concat args path-separator eshell-path-env) |
| 234 | (concat eshell-path-env path-separator dir)))) | 234 | (concat eshell-path-env path-separator args))) |
| 235 | (setenv "PATH" eshell-path-env)) | 235 | (setenv "PATH" eshell-path-env)) |
| 236 | (dolist (dir (parse-colon-path (getenv "PATH"))) | 236 | (dolist (dir (parse-colon-path (getenv "PATH"))) |
| 237 | (eshell-printn dir))))) | 237 | (eshell-printn dir))))) |