# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 743205893 0
# Node ID 20f7ea2f83ef51d271df91474fe0f6921acbf430
# Parent  ac3ba761ac8577da5f15bdb0d41d10b8ea7b0fe2
(parse-colon-path): Turn empty substring into nil.

diff -r ac3ba761ac85 -r 20f7ea2f83ef lisp/files.el
--- a/lisp/files.el	Tue Jul 20 21:54:57 1993 +0000
+++ b/lisp/files.el	Tue Jul 20 22:04:53 1993 +0000
@@ -258,8 +258,10 @@
 	   (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)))