[Emacs-diffs] master b3ff665 2/4: * lisp/cus-start.el (exec-path): Set standard value, to avoid rogue.

[Glenn Morris]

branch: master
commit b3ff665b2abc18fafec9c2bedbccf8f2d94f3242
Author: Glenn Morris <address@hidden>
Commit: Glenn Morris <address@hidden>

    * lisp/cus-start.el (exec-path): Set standard value, to avoid rogue.
---
 lisp/cus-start.el |    7 ++++++-
 1 files changed, 6 insertions(+), 1 deletions(-)

diff --git a/lisp/cus-start.el b/lisp/cus-start.el
index 29ef371..071aaa6 100644
--- a/lisp/cus-start.el
+++ b/lisp/cus-start.el
@@ -169,7 +169,12 @@ Leaving \"Default\" unchecked is equivalent with 
specifying a default of
             (shell-file-name execute file)
             (exec-path execute
                        (repeat (choice (const :tag "default directory" nil)
-                                       (directory :format "%v"))))
+                                       (directory :format "%v")))
+                        nil
+                        :standard
+                        (mapcar 'directory-file-name
+                                (append (parse-colon-path (getenv "PATH"))
+                                        (list exec-directory))))
             (exec-suffixes execute (repeat string))
             ;; charset.c
             (charset-map-path installation