procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/eshell/esh-ext.el (eshell/addpath): Use mapconcat.

Browse source
This commit is contained in:
Glenn Morris 2012-08-06 00:10:27 -07:00
parent 90749b537a
commit e296d94b33
2 changed files with 7 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/ChangeLog
View file

@ -21,7 +21,7 @@
2012-08-06 Glenn Morris <rgm@gnu.org>
* eshell/esh-ext.el (eshell/addpath): Use dolist.
* eshell/esh-ext.el (eshell/addpath): Use dolist and mapconcat.
Do less getting and setting of environment variables.
2012-08-05 Chong Yidong <cyd@gnu.org>

12
lisp/eshell/esh-ext.el
View file

@ -226,12 +226,12 @@ causing the user to wonder if anything's really going on..."
Adds the given PATH to $PATH.")
(if args
(progn
(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))))
(setq eshell-path-env (getenv "PATH")
args (mapconcat 'identity args path-separator)
eshell-path-env
(if prepend
(concat args path-separator eshell-path-env)
(concat eshell-path-env path-separator args)))
(setenv "PATH" eshell-path-env))
(dolist (dir (parse-colon-path (getenv "PATH")))
(eshell-printn dir)))))