From: Michael Albinus <michael.albinus@gmx.de>
Date: Fri, 5 May 2023 17:39:22 +0000 (+0200)
Subject: Improve ange-ftp-file-remote-p
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f6476f8536853bd3e5577c76f619c7a9710cc46a;p=emacs.git

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 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)