aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJuanma Barranquero2004-06-11 01:02:51 +0000
committerJuanma Barranquero2004-06-11 01:02:51 +0000
commitae135939c960605eebccc4d2c3178647baf787c0 (patch)
tree308e550dd0a793f423a5358838519ba42b06091a
parent883d272ec3b298663a7f273b9abe38825e1d49b0 (diff)
downloademacs-ae135939c960605eebccc4d2c3178647baf787c0.tar.gz
emacs-ae135939c960605eebccc4d2c3178647baf787c0.zip
(parse-colon-path, cd): Doc fixes (refer to `path-separator', not colon).
-rw-r--r--lisp/files.el9
1 files changed, 5 insertions, 4 deletions
diff --git a/lisp/files.el b/lisp/files.el
index 81e014d2283..4ee6da4e544 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -526,8 +526,8 @@ the value of `default-directory'."
526Not actually set up until the first time you use it.") 526Not actually set up until the first time you use it.")
527 527
528(defun parse-colon-path (cd-path) 528(defun parse-colon-path (cd-path)
529 "Explode a colon-separated search path into a list of directory names. 529 "Explode a search path into a list of directory names.
530\(For values of `colon' equal to `path-separator'.)" 530Directories are separated by occurrences of `path-separator'."
531 ;; We could use split-string here. 531 ;; We could use split-string here.
532 (and cd-path 532 (and cd-path
533 (let (cd-list (cd-start 0) cd-colon) 533 (let (cd-list (cd-start 0) cd-colon)
@@ -560,8 +560,9 @@ Not actually set up until the first time you use it.")
560 560
561(defun cd (dir) 561(defun cd (dir)
562 "Make DIR become the current buffer's default directory. 562 "Make DIR become the current buffer's default directory.
563If your environment includes a `CDPATH' variable, try each one of that 563If your environment includes a `CDPATH' variable, try each one of
564colon-separated list of directories when resolving a relative directory name." 564that list of directories (separated by occurrences of
565`path-separator') when resolving a relative directory name."
565 (interactive 566 (interactive
566 (list (read-directory-name "Change default directory: " 567 (list (read-directory-name "Change default directory: "
567 default-directory default-directory 568 default-directory default-directory