# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 743319293 0
# Node ID 6f940dcec978712cbacf7b0fbc1475d7310a9bf2
# Parent  ccb1fb62bba6bc1fecdaca987fec6577d3c6384c
(parse-colon-path): Really make nil, not ".", for empty path element.

diff -r ccb1fb62bba6 -r 6f940dcec978 lisp/files.el
--- a/lisp/files.el	Wed Jul 21 22:37:55 1993 +0000
+++ b/lisp/files.el	Thu Jul 22 05:34:53 1993 +0000
@@ -257,9 +257,9 @@
 	 (while (setq cd-colon (string-match ":" cd-path cd-start))
 	   (setq cd-list
 		 (nconc cd-list
-			(list (substitute-in-file-name
-			       (if (= cd-start cd-colon)
-				   "."
+			(list (if (= cd-start cd-colon)
+				   nil
+				(substitute-in-file-name
 				 (file-name-as-directory
 				  (substring cd-path cd-start cd-colon)))))))
 	   (setq cd-start (+ cd-colon 1)))