diff options
| author | Richard M. Stallman | 1993-07-22 05:34:53 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-07-22 05:34:53 +0000 |
| commit | c52e4104a10c45487fa45520c8bcccf05a4b4078 (patch) | |
| tree | 17a0d27f2e0465e927045ca37c920bc55db77701 | |
| parent | 0a933d4b4f74489062056245cf18872dfd8dc540 (diff) | |
| download | emacs-c52e4104a10c45487fa45520c8bcccf05a4b4078.tar.gz emacs-c52e4104a10c45487fa45520c8bcccf05a4b4078.zip | |
(parse-colon-path): Really make nil, not ".", for empty path element.
| -rw-r--r-- | lisp/files.el | 6 |
1 files changed, 3 insertions, 3 deletions
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.") | |||
| 257 | (while (setq cd-colon (string-match ":" cd-path cd-start)) | 257 | (while (setq cd-colon (string-match ":" cd-path cd-start)) |
| 258 | (setq cd-list | 258 | (setq cd-list |
| 259 | (nconc cd-list | 259 | (nconc cd-list |
| 260 | (list (substitute-in-file-name | 260 | (list (if (= cd-start cd-colon) |
| 261 | (if (= cd-start cd-colon) | 261 | nil |
| 262 | "." | 262 | (substitute-in-file-name |
| 263 | (file-name-as-directory | 263 | (file-name-as-directory |
| 264 | (substring cd-path cd-start cd-colon))))))) | 264 | (substring cd-path cd-start cd-colon))))))) |
| 265 | (setq cd-start (+ cd-colon 1))) | 265 | (setq cd-start (+ cd-colon 1))) |