* automated/tramp-tests.el (tramp-test29-vc-registered):

Fallback for changed `vc-register' argument list.

* automated/tramp-tests.el (tramp-test29-vc-registered):
Fallback for changed `vc-register' argument list.
eb608f9e · Michael Albinus · 7385c3e6 · eb608f9e · eb608f9e
Commit eb608f9e authored Dec 03, 2014 by Michael Albinus
Hide whitespace changes
Inline Side-by-side

Showing with 14 additions and 3 deletions

test/ChangeLog test/ChangeLog +5 -0

test/automated/tramp-tests.el test/automated/tramp-tests.el +9 -3

No files found.
--- a/test/ChangeLog
+++ b/test/ChangeLog
+2014-12-03  Michael Albinus  <michael.albinus@gmx.de>
+
+	* automated/tramp-tests.el (tramp-test29-vc-registered):
+	Fallback for changed `vc-register' argument list.
+
 2014-12-03  Glenn Morris  <rgm@gnu.org>

 	* automated/tramp-tests.el (tramp-test29-vc-registered):

--- 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)))))