mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-19 14:41:11 -08:00
Code Issues Projects Releases Wiki Activity

(parse-colon-path): Turn empty substring into nil.

Browse source
This commit is contained in:
Richard M. Stallman 1993-07-20 22:04:53 +00:00
parent 1a47fa1367
commit e33e80e4a1
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/files.el
View file

@ -258,8 +258,10 @@ Not actually set up until the first time you you use it.")
(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)))