procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(cd): Fix interactive spec to require match if there is no CDPATH.

Browse source
This commit is contained in:
Roland McGrath 1995-09-30 16:35:12 +00:00
parent a6ed60f493
commit 2121cd9c03
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/files.el
View file

@ -300,7 +300,9 @@ If your environment includes a `CDPATH' variable, try each one of that
colon-separated list of directories when resolving a relative directory name."
(interactive
(list (read-file-name "Change default directory: "
default-directory default-directory)))
default-directory default-directory
(and (member cd-path '(nil ("./")))
(null (getenv "CDPATH"))))))
(if (file-name-absolute-p dir)
(cd-absolute (expand-file-name dir))
(if (null cd-path)