From f6476f8536853bd3e5577c76f619c7a9710cc46a Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Fri, 5 May 2023 19:39:22 +0200 Subject: [PATCH] Improve ange-ftp-file-remote-p * lisp/net/ange-ftp.el (ange-ftp-file-remote-p): Handle hop identification. --- lisp/net/ange-ftp.el | 1 + 1 file changed, 1 insertion(+) diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el index 1c20a27801d..16ec33f92dc 100644 --- a/lisp/net/ange-ftp.el +++ b/lisp/net/ange-ftp.el @@ -4242,6 +4242,7 @@ directory, so that Emacs will know its current contents." ((eq identification 'user) user) ((eq identification 'host) host) ((eq identification 'localname) localname) + ((eq identification 'hop) nil) (t (ange-ftp-replace-name-component file "")))))) (defun ange-ftp-load (file &optional noerror nomessage nosuffix must-suffix) -- 2.39.2