diff options
| author | Glenn Morris <rgm@gnu.org> | 2015-04-20 17:40:32 -0400 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2015-04-20 17:40:32 -0400 |
| commit | b3ff665b2abc18fafec9c2bedbccf8f2d94f3242 (patch) | |
| tree | 23471561773fa08bc2c3cae8b959fa73a5475188 /lisp/cus-start.el | |
| parent | cf2e9971ea12fb7bfa7700a9693d32ca30f87118 (diff) | |
| download | emacs-b3ff665b2abc18fafec9c2bedbccf8f2d94f3242.tar.gz | |
* lisp/cus-start.el (exec-path): Set standard value, to avoid rogue.
Diffstat (limited to 'lisp/cus-start.el')
| -rw-r--r-- | 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 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 |