* lisp/eshell/esh-ext.el (eshell/addpath): Also update eshell-path-env.

Fixes: debbugs:12013

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a04952def8977c2bb308a5ebd7c8670817b303cd..7e9da4fa8ff4163af4a7419cc8fb69174af94364 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,7 +1,11 @@
+2012-08-05  Glenn Morris  <rgm@gnu.org>
+
+       * eshell/esh-ext.el (eshell/addpath):
+       Also update eshell-path-env.  (Bug#12013)
+
 2012-08-05  Chong Yidong  <cyd@gnu.org>
 
-       * wdired.el (wdired-mode, wdired-change-to-wdired-mode): Doc
-       fixes.
+       * wdired.el (wdired-mode, wdired-change-to-wdired-mode): Doc fixes.
 
        * fringe.el (fringe-styles): Add docstring.
        (fringe--check-mode): New function.

diff --git a/lisp/eshell/esh-ext.el b/lisp/eshell/esh-ext.el
index 603da6f2e3069c97b03f0e20b58d0f5e5032e87c..1702024557573eec861e68eef02681f24ec31b77 100644 (file)
--- a/lisp/eshell/esh-ext.el
+++ b/lisp/eshell/esh-ext.el
@@ -235,7 +235,8 @@ Adds the given PATH to $PATH.")
                               (getenv "PATH"))
                     (concat (getenv "PATH") path-separator
                             (car args))))
-          (setq args (cdr args))))
+          (setq args (cdr args)))
+        (setq eshell-path-env (getenv "PATH")))
      (let ((paths (parse-colon-path (getenv "PATH"))))
        (while paths
         (eshell-printn (car paths))