526 |
Not actually set up until the first time you use it.") |
Not actually set up until the first time you use it.") |
527 |
|
|
528 |
(defun parse-colon-path (cd-path) |
(defun parse-colon-path (cd-path) |
529 |
"Explode a colon-separated search path into a list of directory names. |
"Explode a search path into a list of directory names. |
530 |
\(For values of `colon' equal to `path-separator'.)" |
Directories are separated by occurrences of `path-separator'." |
531 |
;; We could use split-string here. |
;; We could use split-string here. |
532 |
(and cd-path |
(and cd-path |
533 |
(let (cd-list (cd-start 0) cd-colon) |
(let (cd-list (cd-start 0) cd-colon) |
560 |
|
|
561 |
(defun cd (dir) |
(defun cd (dir) |
562 |
"Make DIR become the current buffer's default directory. |
"Make DIR become the current buffer's default directory. |
563 |
If your environment includes a `CDPATH' variable, try each one of that |
If your environment includes a `CDPATH' variable, try each one of |
564 |
colon-separated list of directories when resolving a relative directory name." |
that list of directories (separated by occurrences of |
565 |
|
`path-separator') when resolving a relative directory name." |
566 |
(interactive |
(interactive |
567 |
(list (read-directory-name "Change default directory: " |
(list (read-directory-name "Change default directory: " |
568 |
default-directory default-directory |
default-directory default-directory |