* lisp/cus-start.el (exec-path): Handle nil elements. (Bug#24471)

This commit is contained in:
Glenn Morris 2016-10-16 18:56:06 -07:00
parent 55ebb708cf
commit b73f4668ab

View file

@ -173,7 +173,9 @@ Leaving \"Default\" unchecked is equivalent with specifying a default of
(directory :format "%v")))
nil
:standard
(mapcar 'directory-file-name
(mapcar (lambda (f)
(if f (directory-file-name f)
"."))
(append (parse-colon-path (getenv "PATH"))
(list exec-directory))))
(exec-suffixes execute (repeat string))