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

2016-10-16 18:56:06 -07:00 · 2016-10-16 18:56:06 -07:00 · b73f4668ab
commit b73f4668ab
parent 55ebb708cf
1 changed files with 3 additions and 1 deletions
--- 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))