Mercurial > hg > xemacs-beta

comparison lisp/files.el @ 267:966663fcf606 r20-5b32

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-5b32
author cvs
date Mon, 13 Aug 2007 10:26:29 +0200
parents 8efd647ea9ca
children c5d627a313b1
comparison
equal deleted inserted replaced
266:18d185df8c54 267:966663fcf606
390 "Prior value of the CDPATH environment variable.") 390 "Prior value of the CDPATH environment variable.")
391 391
392 (defvar path-separator ":" 392 (defvar path-separator ":"
393 "Character used to separate concatenated paths.") 393 "Character used to separate concatenated paths.")
394 394
395 ;; Merged with equivalent C Code. 395 (defun parse-colon-path (cd-path)
396 ;(defun parse-colon-path (cd-path) 396 "Explode a colon-separated list of paths into a string list.
397 ; "Explode a colon-separated list of paths into a string list." 397 This will be moved into \"C\" when decode_path is no longer called so
398 ; (and cd-path 398 early in XEmacs initialization."
399 ; (let (cd-list (cd-start 0) cd-colon) 399 (and cd-path
400 ; (setq cd-path (concat cd-path path-separator)) 400 (let (cd-list (cd-start 0) cd-colon)
401 ; (while (setq cd-colon (string-match path-separator cd-path cd-start)) 401 (setq cd-path (concat cd-path path-separator))
402 ; (setq cd-list 402 (while (setq cd-colon (string-match path-separator cd-path cd-start))
403 ; (nconc cd-list 403 (setq cd-list
404 ; (list (if (= cd-start cd-colon) 404 (nconc cd-list
405 ; nil 405 (list (if (= cd-start cd-colon)
406 ; (substitute-in-file-name 406 nil
407 ; (file-name-as-directory 407 (substitute-in-file-name
408 ; (substring cd-path cd-start cd-colon))))))) 408 (file-name-as-directory
409 ; (setq cd-start (+ cd-colon 1))) 409 (substring cd-path cd-start cd-colon)))))))
410 ; cd-list))) 410 (setq cd-start (+ cd-colon 1)))
411 cd-list)))
411 412
412 (defun cd-absolute (dir) 413 (defun cd-absolute (dir)
413 "Change current directory to given absolute file name DIR." 414 "Change current directory to given absolute file name DIR."
414 ;; Put the name into directory syntax now, 415 ;; Put the name into directory syntax now,
415 ;; because otherwise expand-file-name may give some bad results. 416 ;; because otherwise expand-file-name may give some bad results.