Improve ange-ftp-file-remote-p

* lisp/net/ange-ftp.el (ange-ftp-file-remote-p): Handle hop
identification.
This commit is contained in:
Michael Albinus 2023-05-05 19:39:22 +02:00
parent 778a1ee35b
commit f6476f8536

View file

@ -4242,6 +4242,7 @@ directory, so that Emacs will know its current contents."
((eq identification 'user) user) ((eq identification 'user) user)
((eq identification 'host) host) ((eq identification 'host) host)
((eq identification 'localname) localname) ((eq identification 'localname) localname)
((eq identification 'hop) nil)
(t (ange-ftp-replace-name-component file "")))))) (t (ange-ftp-replace-name-component file ""))))))
(defun ange-ftp-load (file &optional noerror nomessage nosuffix must-suffix) (defun ange-ftp-load (file &optional noerror nomessage nosuffix must-suffix)