[Emacs-diffs] /srv/bzr/emacs/trunk r109438: * lisp/eshell/esh-ext.el (eshell/addpath): Also update eshell-path-env.

[Glenn Morris]

------------------------------------------------------------
revno: 109438
fixes bug: http://debbugs.gnu.org/12013
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Sat 2012-08-04 22:24:50 -0700
message:
  * lisp/eshell/esh-ext.el (eshell/addpath): Also update eshell-path-env.
modified:
  lisp/ChangeLog
  lisp/eshell/esh-ext.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-08-05 04:19:21 +0000
+++ b/lisp/ChangeLog    2012-08-05 05:24:50 +0000
@@ -1,7 +1,11 @@
+2012-08-05  Glenn Morris  <address@hidden>
+
+       * eshell/esh-ext.el (eshell/addpath):
+       Also update eshell-path-env.  (Bug#12013)
+
 2012-08-05  Chong Yidong  <address@hidden>
 
-       * 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.

=== modified file 'lisp/eshell/esh-ext.el'
--- a/lisp/eshell/esh-ext.el    2012-07-11 23:13:41 +0000
+++ b/lisp/eshell/esh-ext.el    2012-08-05 05:24:50 +0000
@@ -235,7 +235,8 @@
                               (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))