Merge from origin/emacs-24

[gnu-emacs] / test / automated / tramp-tests.el

diff --git a/test/automated/tramp-tests.el b/test/automated/tramp-tests.el
index 8e48b2804215f763a8707dca2327d9c5de439250..578b81cfac7a866190f313f9af397d764d616999 100644 (file)
--- a/test/automated/tramp-tests.el
+++ b/test/automated/tramp-tests.el
@@ -1474,9 +1474,15 @@ This tests also `make-symbolic-link', `file-truename' and `add-name-to-file'."
            (vc-create-repo (car vc-handled-backends))
            ;; The structure of VC-FILESET is not documented.  Let's
            ;; hope it won't change.
-           (vc-register
-            nil (list (car vc-handled-backends)
-                      (list (file-name-nondirectory tmp-name2)))))
+           (condition-case nil
+               (vc-register
+                (list (car vc-handled-backends)
+                      (list (file-name-nondirectory tmp-name2))))
+             ;; `vc-register' has changed its arguments in Emacs 25.1.
+             (error
+              (vc-register
+               nil (list (car vc-handled-backends)
+                         (list (file-name-nondirectory tmp-name2)))))))
          (should (vc-registered tmp-name2)))
 
        (ignore-errors (delete-directory tmp-name1 'recursive)))))