]> code.delx.au - gnu-emacs/commitdiff
Minor change in tramp-tests.el
authorMichael Albinus <michael.albinus@gmx.de>
Mon, 11 Jan 2016 18:43:36 +0000 (19:43 +0100)
committerMichael Albinus <michael.albinus@gmx.de>
Mon, 11 Jan 2016 18:43:36 +0000 (19:43 +0100)
* test/automated/tramp-tests.el (tramp-test29-vc-registered):
Use `dired-uncache' instead of a Tramp internal function.

test/automated/tramp-tests.el

index 915b30f5e08e3247c881b259ceb0ab400a428399..a29e42e7343e0875a605349ebe7dc1f536672db5 100644 (file)
@@ -44,6 +44,7 @@
 (require 'vc-git)
 (require 'vc-hg)
 
+(autoload 'dired-uncache "dired")
 (declare-function tramp-find-executable "tramp-sh")
 (declare-function tramp-get-remote-path "tramp-sh")
 (declare-function tramp-get-remote-stat "tramp-sh")
@@ -1660,8 +1661,7 @@ This tests also `make-symbolic-link', `file-truename' and `add-name-to-file'."
                          (list (file-name-nondirectory tmp-name2))))))
            ;; vc-git uses an own process sentinel, Tramp's sentinel
            ;; for flushing the cache isn't used.
-           (with-parsed-tramp-file-name tmp-name1 nil
-             (tramp-flush-directory-property v localname))
+           (dired-uncache (concat (file-remote-p default-directory) "/"))
            (should (vc-registered (file-name-nondirectory tmp-name2)))))
 
       ;; Cleanup.