[Emacs-diffs] master eb608f9: * automated/tramp-tests.el (tramp-test29-vc-registered):

[Michael Albinus]

branch: master
commit eb608f9ef2d018191d614bac5cd247d998b6fdfb
Author: Michael Albinus <address@hidden>
Commit: Michael Albinus <address@hidden>

    * automated/tramp-tests.el (tramp-test29-vc-registered):
    Fallback for changed `vc-register' argument list.
---
 test/ChangeLog                |    5 +++++
 test/automated/tramp-tests.el |   12 +++++++++---
 2 files changed, 14 insertions(+), 3 deletions(-)

diff --git a/test/ChangeLog b/test/ChangeLog
index fea4078..cc62818 100644
--- a/test/ChangeLog
+++ b/test/ChangeLog
@@ -1,3 +1,8 @@
+2014-12-03  Michael Albinus  <address@hidden>
+
+       * automated/tramp-tests.el (tramp-test29-vc-registered):
+       Fallback for changed `vc-register' argument list.
+
 2014-12-03  Glenn Morris  <address@hidden>
 
        * automated/tramp-tests.el (tramp-test29-vc-registered):
diff --git a/test/automated/tramp-tests.el b/test/automated/tramp-tests.el
index 2b2074c..c03b746 100644
--- a/test/automated/tramp-tests.el
+++ b/test/automated/tramp-tests.el
@@ -1469,9 +1469,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
-            (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)))))