master 8eeb8174982: ; * test/lisp/vc/vc-tests/vc-test-misc.el: Fix compilation warnings.

branch: master
commit 8eeb8174982feed836de9e0aa5fbc83f46b967ad
Author: Sean Whitton <[email protected]>
Commit: Sean Whitton <[email protected]>

    ; * test/lisp/vc/vc-tests/vc-test-misc.el: Fix compilation warnings.
---
 test/lisp/vc/vc-tests/vc-test-misc.el | 23 +++++++++++------------
 1 file changed, 11 insertions(+), 12 deletions(-)

diff --git a/test/lisp/vc/vc-tests/vc-test-misc.el b/test/lisp/vc/vc-tests/vc-test-misc.el
index 32c6b4d765d..4e3f883c1cd 100644
--- a/test/lisp/vc/vc-tests/vc-test-misc.el
+++ b/test/lisp/vc/vc-tests/vc-test-misc.el
@@ -316,7 +316,7 @@ See bug#80803 and bug#80967."
           (should (bobp))
           (while (vc-dir--before-dotname-p)
             (vc-dir-next-line 1)
-            (should (and (looking-at "\\./$") (looking-back "^ +")))
+            (should (and (looking-at "\\./$") (looking-back "^ +" (pos-bol))))
             (incf n 1)
             (goto-char (point-min))
             (forward-line n))
@@ -333,29 +333,29 @@ See bug#80803 and bug#80967."
             (should (equal (point) end)))
           (goto-char (point-min))
           (vc-dir-next-directory)
-          (should (and (looking-at "\\./$") (looking-back "^ +")))
+          (should (and (looking-at "\\./$") (looking-back "^ +" (pos-bol))))
           (vc-dir-next-directory)
-          (should (and (looking-at "dir1/$") (looking-back "^ +")))
+          (should (and (looking-at "dir1/$") (looking-back "^ +" (pos-bol))))
           (vc-dir-next-directory)
-          (should (and (looking-at "dir1/$") (looking-back "^ +")))
+          (should (and (looking-at "dir1/$") (looking-back "^ +" (pos-bol))))
           (goto-char (point-max))
           (vc-dir-previous-line 1)
           (should (looking-at "dir1/file11$"))
           (vc-dir-previous-line 1)
-          (should (and (looking-at "dir1/$") (looking-back "^ +")))
+          (should (and (looking-at "dir1/$") (looking-back "^ +" (pos-bol))))
           (vc-dir-previous-line 1)
           (should (looking-at "file01$"))
           (vc-dir-previous-line 1)
-          (should (and (looking-at "\\./$") (looking-back "^ +")))
+          (should (and (looking-at "\\./$") (looking-back "^ +" (pos-bol))))
           (vc-dir-previous-line 1)
-          (should (and (looking-at "\\./$") (looking-back "^ +")))
+          (should (and (looking-at "\\./$") (looking-back "^ +" (pos-bol))))
           (goto-char (point-max))
           (vc-dir-previous-directory)
-          (should (and (looking-at "dir1/$") (looking-back "^ +")))
+          (should (and (looking-at "dir1/$") (looking-back "^ +" (pos-bol))))
           (vc-dir-previous-directory)
-          (should (and (looking-at "\\./$") (looking-back "^ +")))
+          (should (and (looking-at "\\./$") (looking-back "^ +" (pos-bol))))
           (vc-dir-previous-directory)
-          (should (and (looking-at "\\./$") (looking-back "^ +")))
+          (should (and (looking-at "\\./$") (looking-back "^ +" (pos-bol))))
           (kill-buffer vc-dir-buf))))))
 
 (ert-deftest vc-test-vc-dir-mark/unmark-all-dir-entry () ; bug#81249
@@ -434,8 +434,7 @@ See bug#80803 and bug#80967."
       (ert-with-temp-directory tempdir
         (let ((default-directory tempdir)
               (files '("dir1/file11" "dir1/file12"))
-              vc-dir-buf
-              dir-children)
+              vc-dir-buf)
           (vc-test--create-repo-function 'Git)
           (dolist (file files)
             (make-empty-file file t))