[Emacs-diffs] Changes to emacs/lisp/files.el

[Juanma Barranquero]

Index: emacs/lisp/files.el
diff -c emacs/lisp/files.el:1.701 emacs/lisp/files.el:1.702
*** emacs/lisp/files.el:1.701   Sun May 30 21:21:42 2004
--- emacs/lisp/files.el Fri Jun 11 01:02:51 2004
***************
*** 526,533 ****
  Not actually set up until the first time you use it.")
  
  (defun parse-colon-path (cd-path)
!   "Explode a colon-separated search path into a list of directory names.
! \(For values of `colon' equal to `path-separator'.)"
    ;; We could use split-string here.
    (and cd-path
         (let (cd-list (cd-start 0) cd-colon)
--- 526,533 ----
  Not actually set up until the first time you use it.")
  
  (defun parse-colon-path (cd-path)
!   "Explode a search path into a list of directory names.
! Directories are separated by occurrences of `path-separator'."
    ;; We could use split-string here.
    (and cd-path
         (let (cd-list (cd-start 0) cd-colon)
***************
*** 560,567 ****
  
  (defun cd (dir)
    "Make DIR become the current buffer's default directory.
! 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-directory-name "Change default directory: "
                         default-directory default-directory
--- 560,568 ----
  
  (defun cd (dir)
    "Make DIR become the current buffer's default directory.
! If your environment includes a `CDPATH' variable, try each one of
! that list of directories (separated by occurrences of
! `path-separator') when resolving a relative directory name."
    (interactive
     (list (read-directory-name "Change default directory: "
                         default-directory default-directory