Commit eb608f9e authored by Michael Albinus's avatar Michael Albinus

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

Fallback for changed `vc-register' argument list.
parent 7385c3e6
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> 2014-12-03 Glenn Morris <rgm@gnu.org>
* automated/tramp-tests.el (tramp-test29-vc-registered): * automated/tramp-tests.el (tramp-test29-vc-registered):
......
...@@ -1469,9 +1469,15 @@ This tests also `make-symbolic-link', `file-truename' and `add-name-to-file'." ...@@ -1469,9 +1469,15 @@ This tests also `make-symbolic-link', `file-truename' and `add-name-to-file'."
(vc-create-repo (car vc-handled-backends)) (vc-create-repo (car vc-handled-backends))
;; The structure of VC-FILESET is not documented. Let's ;; The structure of VC-FILESET is not documented. Let's
;; hope it won't change. ;; hope it won't change.
(condition-case nil
(vc-register (vc-register
(list (car vc-handled-backends) (list (car vc-handled-backends)
(list (file-name-nondirectory tmp-name2))))) (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))) (should (vc-registered tmp-name2)))
(ignore-errors (delete-directory tmp-name1 'recursive))))) (ignore-errors (delete-directory tmp-name1 'recursive)))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment