Function: dired-vc-deduce-fileset

dired-vc-deduce-fileset is an autoloaded and byte-compiled function defined in dired-aux.el.gz.

Signature

(dired-vc-deduce-fileset &optional STATE-MODEL-ONLY-FILES NOT-STATE-CHANGING)

Source Code

;; Defined in /usr/src/emacs/lisp/dired-aux.el.gz
;;;###autoload
(defun dired-vc-deduce-fileset
    (&optional state-model-only-files not-state-changing)
  (let* ((files (dired-get-marked-files nil nil nil nil t))
         (backend (or (vc-responsible-backend default-directory t)
                      (vc-backend-for-registration (car files)))))
    (when (and (not not-state-changing)
               (cl-some #'file-directory-p files))
      (user-error "\
State-changing VC operations on directories supported only from VC-Dir"))
    (if state-model-only-files
        (let ((only-files-list (mapcar (lambda (file)
                                         (cons file (vc-state file)))
                                       files)))
          (cl-list* backend files
                    (vc-only-files-state-and-model only-files-list
                                                   backend)))
      (list backend files))))