; Fix byte-compiler warnings

diff --git a/lisp/vc/vc-bzr.el b/lisp/vc/vc-bzr.el
index 905651f2a0fe2b5cb1a341e324db351038b0afce..a12b78e73cb623a0bd66d99ddd8f76b7f5bb2fc9 100644 (file)
--- 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 b089a9774707cb8ddb90ba84319ba7dd32c8fa5f..1ff599c585c22cae561e0a22ac01af5e41028e1d 100644 (file)
--- 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 4e153bd92fb21f17ccdbebb4bcf5e184fcabdb9c..613d2d6961156e51e16cef6e51ac84e27a277cdc 100644 (file)
--- 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 94d1fcc03647c77784e5083f06213ca42f5d2af8..4ced1caa60fa2eadc033b4134cf90902f4f5191e 100644 (file)
--- 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