master f6476f85368: Improve ange-ftp-file-remote-p

[Michael Albinus]

branch: master
commit f6476f8536853bd3e5577c76f619c7a9710cc46a
Author: Michael Albinus <michael.albinus@gmx.de>
Commit: Michael Albinus <michael.albinus@gmx.de>

    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)