Function: pcmpl-git--tracked-file-predicate

pcmpl-git--tracked-file-predicate is a byte-compiled function defined in pcmpl-git.el.gz.

Signature

(pcmpl-git--tracked-file-predicate &rest ARGS)

Documentation

Return a predicate function determining the Git status of a file.

Files listed by git ls-files ARGS satisfy the predicate.

Source Code

;; Defined in /usr/src/emacs/lisp/pcmpl-git.el.gz
(defun pcmpl-git--tracked-file-predicate (&rest args)
  "Return a predicate function determining the Git status of a file.
Files listed by `git ls-files ARGS' satisfy the predicate."
  (when-let ((files (mapcar #'expand-file-name
                            (ignore-errors
                              (apply #'process-lines
                                     vc-git-program "ls-files" args)))))
    (lambda (file)
      (setq file (expand-file-name file))
      (if (string-suffix-p "/" file)
          (seq-some (lambda (f) (string-prefix-p file f))
                    files)
        (member file files)))))