From: Richard M. Stallman Date: Thu, 22 Jul 1993 05:34:53 +0000 (+0000) Subject: (parse-colon-path): Really make nil, not ".", for empty path element. X-Git-Tag: emacs-19.34~11635 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c52e4104a10c45487fa45520c8bcccf05a4b4078;p=emacs.git (parse-colon-path): Really make nil, not ".", for empty path element. --- diff --git a/lisp/files.el b/lisp/files.el index 8edf13a5c4d..70e42d81bec 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -257,9 +257,9 @@ Not actually set up until the first time you you use it.") (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)))