Mercurial > emacs

diff lisp/files.el @ 4196:20f7ea2f83ef

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 45fc16fdf07e
children 6f940dcec978
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)))