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

diff --git a/lisp/cus-start.el b/lisp/cus-start.el
index 001d638ca1461a5b2e160ec891db86d440fd6cd4..a8bcc45864904f7ca6aa81b627681ecb677a21b2 100644 (file)
--- a/lisp/cus-start.el
+++ b/lisp/cus-start.el
@@ -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))