[Emacs-diffs] scratch/tsdh-vc-list-files 56f399c: ; Fix byte-compiler warnings

[Tassilo Horn]

branch: scratch/tsdh-vc-list-files
commit 56f399c3704d76ea79106e8ebb3e63bb2d601336
Author: Tassilo Horn <address@hidden>
Commit: Tassilo Horn <address@hidden>

    ; Fix byte-compiler warnings
---
 lisp/vc/vc-bzr.el | 4 ++++
 lisp/vc/vc-git.el | 5 ++++-
 lisp/vc/vc-hg.el  | 1 +
 lisp/vc/vc-svn.el | 4 ++++
 4 files changed, 13 insertions(+), 1 deletion(-)

diff --git a/lisp/vc/vc-bzr.el b/lisp/vc/vc-bzr.el
index 905651f..a12b78e 100644
--- a/lisp/vc/vc-bzr.el
+++ b/lisp/vc/vc-bzr.el
@@ -45,6 +45,8 @@
 
 ;;; Code:
 
+(require 'subr-x) ; for string-empty-p
+
 (eval-when-compile
   (require 'cl-lib)
   (require 'vc-dispatcher)
@@ -1315,6 +1317,8 @@ stream.  Standard error output is discarded."
                                              vc-bzr-revision-keywords))
                             string pred)))))
 
+(declare-function cl-remove-if "cl-seq")
+
 (defun vc-bzr-list-files (&optional dir _args)
   (let ((default-directory (or dir default-directory)))
     (mapcar
diff --git a/lisp/vc/vc-git.el b/lisp/vc/vc-git.el
index b089a97..1ff599c 100644
--- a/lisp/vc/vc-git.el
+++ b/lisp/vc/vc-git.el
@@ -102,9 +102,10 @@
 
 ;;; Code:
 
+(require 'subr-x) ; for string-trim-right, string-empty-p
+
 (eval-when-compile
   (require 'cl-lib)
-  (require 'subr-x) ; for string-trim-right
   (require 'vc)
   (require 'vc-dir))
 
@@ -1706,6 +1707,8 @@ Returns nil if not possible."
                                                       (1- (point-max)))))))
          (and name (not (string= name "undefined")) name))))
 
+(declare-function cl-remove-if "cl-seq")
+
 (defun vc-git-list-files (&optional dir _args)
   (let ((default-directory (or dir default-directory)))
     (mapcar
diff --git a/lisp/vc/vc-hg.el b/lisp/vc/vc-hg.el
index 4e153bd..613d2d6 100644
--- a/lisp/vc/vc-hg.el
+++ b/lisp/vc/vc-hg.el
@@ -102,6 +102,7 @@
 ;;; Code:
 
 (require 'cl-lib)
+(require 'subr-x)
 
 (eval-when-compile
   (require 'vc)
diff --git a/lisp/vc/vc-svn.el b/lisp/vc/vc-svn.el
index 94d1fcc..4ced1ca 100644
--- a/lisp/vc/vc-svn.el
+++ b/lisp/vc/vc-svn.el
@@ -28,7 +28,9 @@
 
 ;;; Code:
 
+(require 'subr-x)
 (eval-when-compile
+  (require 'cl-lib)
   (require 'vc))
 
 ;; Clear up the cache to force vc-call to check again and discover
@@ -809,6 +811,8 @@ Set file properties accordingly.  If FILENAME is non-nil, 
return its status."
           (setq loglines (buffer-substring-no-properties start (point-max)))))
       vc-svn-revisions)))
 
+(declare-function cl-remove-if "cl-seq")
+
 (defun vc-svn-list-files (&optional dir _args)
   (let ((default-directory (or dir default-directory)))
     (mapcar