From a4f2deaaeba642460b7a0899aa61f7d68e1c69f2 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Sat, 4 Aug 2012 22:24:50 -0700 Subject: [PATCH] * lisp/eshell/esh-ext.el (eshell/addpath): Also update eshell-path-env. Fixes: debbugs:12013 --- lisp/ChangeLog | 8 ++++++-- lisp/eshell/esh-ext.el | 3 ++- 2 files changed, 8 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index a04952def89..7e9da4fa8ff 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,7 +1,11 @@ +2012-08-05 Glenn Morris + + * eshell/esh-ext.el (eshell/addpath): + Also update eshell-path-env. (Bug#12013) + 2012-08-05 Chong Yidong - * 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 603da6f2e30..17020245575 100644 --- 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)) -- 2.39.2