Function: vc-expand-dirs

vc-expand-dirs is a byte-compiled function defined in vc.el.gz.

Signature

(vc-expand-dirs FILE-OR-DIR-LIST BACKEND)

Documentation

Expand directories in a file list specification.

Within directories, only files already under version control are noticed.

Source Code

;; Defined in /usr/src/emacs/lisp/vc/vc.el.gz
(defun vc-expand-dirs (file-or-dir-list backend)
  "Expand directories in a file list specification.
Within directories, only files already under version control are noticed."
  (let ((flattened '()))
    (dolist (node file-or-dir-list)
      (when (file-directory-p node)
	(vc-file-tree-walk
	 node (lambda (f) (when (eq (vc-backend f) backend) (push f flattened)))))
      (unless (file-directory-p node) (push node flattened)))
    (nreverse flattened)))