[Top][All Lists]

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

How to get a list of changed files with VC?

From: Michael Heerdegen
Subject: How to get a list of changed files with VC?
Date: Thu, 13 Jul 2017 03:23:40 +0200
User-agent: Gnus/5.13 (Gnus v5.13) Emacs/26.0.50 (gnu/linux)


For el-search' `change' pattern, I need the following functions:

#+begin_src emacs-lisp
(defun el-search--changed-files-in-repo (repo-root-dir &optional commit)
  "Return a list of files that changed relative to COMMIT.
COMMIT defaults to HEAD."
  (cl-callf or commit "HEAD")
  (let ((default-directory repo-root-dir))
    (mapcar #'expand-file-name
              (format "git diff -z --name-only %s --" (shell-quote-argument 
             "\0" t))))

(defun el-search--file-changed-p (file revision)
  "Return non-nil when FILE has changed relative to REVISION."
  (cl-callf file-truename file)
  (when-let ((backend (vc-backend file)))
      (let ((default-directory (file-name-directory file))
            (vc-git-diff-switches nil))
           (= 1 (vc-call-backend backend 'diff (list file) nil revision
           (= 1 (vc-call-backend backend 'diff (list file) revision nil

I didn't find something like this existing in VC (or did I miss it?).

More specific questions about my implementation:

1.  The implementation of the first function
`el-search--changed-files-in-repo' is currently git-specific, but I
didn't find a way to implement it with functions that VC defines to make
it work for other version control systems.  Any idea?

2.  The second function `el-search--file-changed-p' doesn't have this
problem.  However, I gained it from trial and error.  Does the
implementation make sense?  How can I avoid binding vc-git-diff-switches
-> nil (I get an error for some files if I don't).  And I also need to
wrap the thing inside `ignore-errors' to avoid a more complicate
`condition-case' where I don't fully understand which errors I need to

Any help for a better implementation is greatly appreciated.



reply via email to

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