diff options
| author | Glenn Morris <rgm@gnu.org> | 2012-08-05 18:23:37 -0700 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2012-08-05 18:23:37 -0700 |
| commit | 5eaeacb595f4432c598cdd9f4c11763648983f62 (patch) | |
| tree | 8a0e34b96f50e62dba2e9281aecbd6d487ceffdb /lisp/eshell/esh-ext.el | |
| parent | 248355587012368e225d727770691cab21760e7c (diff) | |
| download | emacs-5eaeacb595f4432c598cdd9f4c11763648983f62.tar.gz emacs-5eaeacb595f4432c598cdd9f4c11763648983f62.tar.bz2 emacs-5eaeacb595f4432c598cdd9f4c11763648983f62.zip | |
Tweak previous esh-ext.el change
* lisp/eshell/esh-ext.el (eshell/addpath): Use dolist.
Do less getting and setting of environment variables.
Diffstat (limited to 'lisp/eshell/esh-ext.el')
| -rw-r--r-- | lisp/eshell/esh-ext.el | 24 |
1 files changed, 9 insertions, 15 deletions
diff --git a/lisp/eshell/esh-ext.el b/lisp/eshell/esh-ext.el index 17020245575..c0add0443cb 100644 --- a/lisp/eshell/esh-ext.el +++ b/lisp/eshell/esh-ext.el @@ -226,21 +226,15 @@ causing the user to wonder if anything's really going on..." Adds the given PATH to $PATH.") (if args (progn - (if prepend - (setq args (nreverse args))) - (while args - (setenv "PATH" - (if prepend - (concat (car args) path-separator - (getenv "PATH")) - (concat (getenv "PATH") path-separator - (car args)))) - (setq args (cdr args))) - (setq eshell-path-env (getenv "PATH"))) - (let ((paths (parse-colon-path (getenv "PATH")))) - (while paths - (eshell-printn (car paths)) - (setq paths (cdr paths))))))) + (setq eshell-path-env (getenv "PATH")) + (dolist (dir (if prepend (nreverse args) args)) + (setq eshell-path-env + (if prepend + (concat dir path-separator eshell-path-env) + (concat eshell-path-env path-separator dir)))) + (setenv "PATH" eshell-path-env)) + (dolist (dir (parse-colon-path (getenv "PATH"))) + (eshell-printn dir))))) (put 'eshell/addpath 'eshell-no-numeric-conversions t) |