Commit e33e80e4 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(parse-colon-path): Turn empty substring into nil.

parent 1a47fa13
......@@ -258,8 +258,10 @@ Not actually set up until the first time you you use it.")
(setq cd-list
(nconc cd-list
(list (substitute-in-file-name
(file-name-as-directory
(substring cd-path cd-start cd-colon))))))
(if (= cd-start cd-colon)
"."
(file-name-as-directory
(substring cd-path cd-start cd-colon)))))))
(setq cd-start (+ cd-colon 1)))
cd-list)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment