Function: vc-dir-mark-files

vc-dir-mark-files is a byte-compiled function defined in vc-dir.el.gz.

Signature

(vc-dir-mark-files MARK-FILES)

Documentation

Mark files specified by file names in the argument MARK-FILES.

MARK-FILES should be a list of absolute filenames. Directories must have trailing slashes.

Source Code

;; Defined in /usr/src/emacs/lisp/vc/vc-dir.el.gz
(defun vc-dir-mark-files (mark-files)
  "Mark files specified by file names in the argument MARK-FILES.
MARK-FILES should be a list of absolute filenames.
Directories must have trailing slashes."
  ;; Filter out subitems that would be implicitly marked.
  (setq mark-files (sort mark-files))
  (let ((next mark-files))
    (while next
      (when (string-suffix-p "/" (car next))
        (while (string-prefix-p (car next) (cadr next))
          (rplacd next (cddr next))))
      (setq next (cdr next))))

  (ewoc-map
   (lambda (filearg)
     (when (member (expand-file-name (vc-dir-fileinfo->name filearg))
                   mark-files)
       (setf (vc-dir-fileinfo->marked filearg) t)
       t))
   vc-ewoc))