Improve ange-ftp-file-remote-p

* lisp/net/ange-ftp.el (ange-ftp-file-remote-p): Handle hop
identification.

diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el
index 1c20a27801db8b17a228e4f98c00b79deb1aa476..16ec33f92dca1e5ff81d475bf51e5c5cb5691012 100644 (file)
--- 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)