(parse-colon-path): Really make nil, not ".", for empty path element.

c52e4104 · Richard M. Stallman · 0a933d4b · c52e4104
Commit c52e4104 authored Jul 22, 1993 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 3 deletions

lisp/files.el lisp/files.el +3 -3

No files found.
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -257,9 +257,9 @@ Not actually set up until the first time you you use it.")
 	 (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)))