Mercurial > emacs
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)))