Mercurial > emacs
diff lisp/files.el @ 4216:6f940dcec978
(parse-colon-path): Really make nil, not ".", for empty path element.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Thu, 22 Jul 1993 05:34:53 +0000 |
parents | 20f7ea2f83ef |
children | f705c18c410d |
line wrap: on
line diff
--- a/lisp/files.el Wed Jul 21 22:37:55 1993 +0000 +++ b/lisp/files.el Thu Jul 22 05:34:53 1993 +0000 @@ -257,9 +257,9 @@ (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)))