From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 20 Jul 1993 22:04:53 +0000 (+0000)
Subject: (parse-colon-path): Turn empty substring into nil.
X-Git-Url: https://git.hcoop.net/bpt/emacs.git/commitdiff_plain/e33e80e4a1fee3f2656e6f73318fdfd02612a018?hp=1a47fa1367e6b41622fa336e1b15f62755504639

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

diff --git a/lisp/files.el b/lisp/files.el
index 5ed1ad4b7a..8edf13a5c4 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -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)))