Lines Matching refs:dirs
756 (defun file-truename (filename &optional counter prev-dirs)
785 (if prev-dirs file-name-handler-alist
788 (or prev-dirs (setq prev-dirs (list nil)))
833 (if (assoc dir (car prev-dirs))
834 (setq dir (cdr (assoc dir (car prev-dirs))))
836 (new (file-name-as-directory (file-truename dirfile counter prev-dirs))))
837 (setcar prev-dirs (cons (cons old new) (car prev-dirs)))
4030 "Create the directory DIR and any nonexistent parent dirs.
4674 ;; A list of all dirs that DIRPART specifies.
4677 (dirs (if (and dirpart (string-match "[[*?]" dirpart))
4682 (while dirs
4683 (when (or (null (car dirs)) ; Possible if DIRPART is not wild.
4684 (file-directory-p (directory-file-name (car dirs))))
4692 (directory-files (or (car dirs) ".") full
4696 (if (and (car dirs) (not full))
4697 (mapcar (function (lambda (name) (concat (car dirs) name)))
4701 (setq dirs (cdr dirs)))