From: Glenn Morris <rgm@gnu.org>
Date: Mon, 20 Apr 2015 21:40:32 +0000 (-0400)
Subject: * lisp/cus-start.el (exec-path): Set standard value, to avoid rogue.
X-Git-Tag: emacs-25.0.90~2352
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b3ff665b2abc18fafec9c2bedbccf8f2d94f3242;p=emacs.git

* lisp/cus-start.el (exec-path): Set standard value, to avoid rogue.
---

diff --git a/lisp/cus-start.el b/lisp/cus-start.el
index 29ef371669c..071aaa6850f 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