emacs-devel
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: A project-files implementation for Git projects


From: Tassilo Horn
Subject: Re: A project-files implementation for Git projects
Date: Fri, 13 Sep 2019 22:38:15 +0200
User-agent: Gnus/5.13 (Gnus v5.13) Emacs/27.0.50 (gnu/linux)

Hi again,

someone told me a better way to query the tracked files from subversion
which is much faster and requires no network call off-list.

--8<---------------cut here---------------start------------->8---
(defun vc-svn-list-files (&optional dir)
  (let ((default-directory (or dir default-directory))
        files)
    (with-temp-buffer
      (vc-svn-command t 0 "."
                      "info" "--recursive"
                      "--show-item" "relative-url"
                      "--show-item" "kind")
      (goto-char (point-min))
      (while (re-search-forward "^file\s+\\(.*\\)$" nil t)
        (setq files (cons (expand-file-name (match-string 1))
                          files))))
    (nreverse files)))
--8<---------------cut here---------------end--------------->8---

I've also pushed my changes to the branch scratch/tsdh-vc-list-files for
review.

Bye,
Tassilo



reply via email to

[Prev in Thread] Current Thread [Next in Thread]