mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-11 16:08:13 +00:00
Code Issues Releases Activity

(cd): Set cd-path to a list.

Browse Source
This commit is contained in:
Richard M. Stallman 1993-05-24 21:45:20 +00:00
parent 7ee260fe39
commit 9daefb36fa
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/files.el
View File

@ -246,7 +246,10 @@ Not actually set up until the first time you you use it.")
(setq cd-path (concat cd-path ":"))
(while (setq cd-colon (string-match ":" cd-path cd-start))
(setq cd-list
(nconc cd-list (list (substitute-in-file-name (file-name-as-directory (substring cd-path cd-start cd-colon))))))
(nconc cd-list
(list (substitute-in-file-name
(file-name-as-directory
(substring cd-path cd-start cd-colon))))))
(setq cd-start (+ cd-colon 1)))
cd-list)))
@ -260,8 +263,7 @@ Not actually set up until the first time you you use it.")
(error "%s is not a directory" dir)
(if (file-executable-p dir)
(setq default-directory dir)
(error "Cannot cd to %s: Permission denied" dir)))
)
(error "Cannot cd to %s: Permission denied" dir))))
(defun cd (dir)
"Make DIR become the current buffer's default directory.
@ -273,7 +275,7 @@ colon-separated list of directories when resolving a relative cd."
(cd-absolute (expand-file-name dir))
(if (null cd-path)
(let ((trypath (parse-colon-path (getenv "CDPATH"))))
(setq cd-path (or trypath "./"))))
(setq cd-path (or trypath (list "./")))))
(if (not (catch 'found
(mapcar
(function (lambda (x)