Function: vc-dir-deduce-fileset

vc-dir-deduce-fileset is a byte-compiled function defined in vc-dir.el.gz.

Signature

(vc-dir-deduce-fileset &optional STATE-MODEL-ONLY-FILES)

Source Code

;; Defined in /usr/src/emacs/lisp/vc/vc-dir.el.gz
(defun vc-dir-deduce-fileset (&optional state-model-only-files)
  (let ((marked (vc-dir-marked-files))
	files only-files-list)
    (if marked
	(progn
	  (setq files marked)
	  (when state-model-only-files
	    (setq only-files-list (vc-dir-marked-only-files-and-states))))
      (let ((crt (vc-dir-current-file)))
	(setq files (list crt))
	(when state-model-only-files
	  (setq only-files-list (vc-dir-child-files-and-states)))))
    (if state-model-only-files
        (cl-list* vc-dir-backend files
                  (vc-only-files-state-and-model only-files-list
                                                 vc-dir-backend))
      (list vc-dir-backend files))))