/[emacs]/emacs/lisp/files.el
ViewVC logotype

Diff of /emacs/lisp/files.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.583.2.13 by miles, Tue Jul 6 09:38:06 2004 UTC revision 1.583.2.14 by miles, Tue Jul 6 10:00:03 2004 UTC
# Line 526  the value of `default-directory'." Line 526  the value of `default-directory'."
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)
# Line 560  Not actually set up until the first time Line 560  Not actually set up until the first time
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

Legend:
Removed from v.1.583.2.13  
changed lines
  Added in v.1.583.2.14

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26