emacs-28 764ffa7: Backport Tramp fixes, don't merge

[Michael Albinus]

branch: emacs-28
commit 764ffa76ed00f7a69e56a6898c22383a204421eb
Author: Michael Albinus <michael.albinus@gmx.de>
Commit: Michael Albinus <michael.albinus@gmx.de>

    Backport Tramp fixes, don't merge
    
    * lisp/net/tramp-sshfs.el (tramp-sshfs-file-name-handler-alist):
    Use `tramp-handle-file-readable-p'.
    
    * test/lisp/net/tramp-archive-tests.el
    (tramp-archive-test02-file-name-dissect): Use `make-tramp-file-name'.
---
 lisp/net/tramp-sshfs.el              |  2 +-
 test/lisp/net/tramp-archive-tests.el | 29 ++++++++++++++---------------
 2 files changed, 15 insertions(+), 16 deletions(-)

diff --git a/lisp/net/tramp-sshfs.el b/lisp/net/tramp-sshfs.el
index a100786..1886031 100644
--- a/lisp/net/tramp-sshfs.el
+++ b/lisp/net/tramp-sshfs.el
@@ -110,7 +110,7 @@
     (file-notify-rm-watch . ignore)
     (file-notify-valid-p . ignore)
     (file-ownership-preserved-p . ignore)
-    (file-readable-p . tramp-fuse-handle-file-readable-p)
+    (file-readable-p . tramp-handle-file-readable-p)
     (file-regular-p . tramp-handle-file-regular-p)
     (file-remote-p . tramp-handle-file-remote-p)
     (file-selinux-context . tramp-handle-file-selinux-context)
diff --git a/test/lisp/net/tramp-archive-tests.el 
b/test/lisp/net/tramp-archive-tests.el
index 98012f4..0a484ff 100644
--- a/test/lisp/net/tramp-archive-tests.el
+++ b/test/lisp/net/tramp-archive-tests.el
@@ -265,21 +265,20 @@ variables, so we check the Emacs version directly."
               (concat
                (tramp-gvfs-url-file-name
                 (tramp-make-tramp-file-name
-                 tramp-archive-method
-                 ;; User and Domain.
-                 nil nil
-                 ;; Host.
-                 (url-hexify-string
-                  (concat
-                   "file://"
-                   ;; `directory-file-name' does not leave file
-                   ;; archive boundaries.  So we must cut the
-                   ;; trailing slash ourselves.
-                   (substring
-                    (file-name-directory
-                     (tramp-archive-test-file-archive-hexlified))
-                    0 -1)))
-                 nil "/"))
+                 (make-tramp-file-name
+                  :method tramp-archive-method
+                  :host
+                  (url-hexify-string
+                   (concat
+                    "file://"
+                    ;; `directory-file-name' does not leave file
+                    ;; archive boundaries.  So we must cut the
+                    ;; trailing slash ourselves.
+                    (substring
+                     (file-name-directory
+                      (tramp-archive-test-file-archive-hexlified))
+                     0 -1)))
+                  :localname "/")))
                (file-name-nondirectory tramp-archive-test-file-archive)))))
            (should-not port)
            (should (string-equal localname "/bar"))