From: Tassilo Horn <tsdh@gnu.org>
Date: Wed, 11 Sep 2019 19:57:25 +0000 (+0200)
Subject: ; Fix byte-compiler warnings
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=56f399c3704d76ea79106e8ebb3e63bb2d601336;p=emacs.git

; Fix byte-compiler warnings
---

diff --git a/lisp/vc/vc-bzr.el b/lisp/vc/vc-bzr.el
index 905651f2a0f..a12b78e73cb 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 b089a977470..1ff599c585c 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 4e153bd92fb..613d2d69611 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 94d1fcc0364..4ced1caa60f 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