changeset 4196:20f7ea2f83ef

(parse-colon-path): Turn empty substring into nil.
author Richard M. Stallman <rms@gnu.org>
date Tue, 20 Jul 1993 22:04:53 +0000
parents ac3ba761ac85
children 09844c8d0c07
files lisp/files.el
diffstat 1 files changed, 4 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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)))