Function: vc-file-tree-walk-internal

vc-file-tree-walk-internal is a byte-compiled function defined in vc.el.gz.

Signature

(vc-file-tree-walk-internal FILE FUNC ARGS)

Source Code

;; Defined in /usr/src/emacs/lisp/vc/vc.el.gz
(defun vc-file-tree-walk-internal (file func args)
  (if (not (file-directory-p file))
      (when (vc-backend file) (apply func file args))
    (message "Traversing directory %s..." (abbreviate-file-name file))
    (let ((dir (file-name-as-directory file)))
      (mapcar
       (lambda (f) (or
               (string-equal f ".")
               (string-equal f "..")
               (member f vc-directory-exclusion-list)
               (let ((dirf (expand-file-name f dir)))
                 (or
                  (file-symlink-p dirf) ;; Avoid possible loops.
                  (vc-file-tree-walk-internal dirf func args)))))
       (directory-files dir)))))