From 74eed03bc2a5844ef6608333bc5ee6e0eee6701e Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Wed, 23 Aug 2023 11:00:56 +0200 Subject: [PATCH] * lisp/net/ange-ftp.el (ange-ftp-file-remote-p): Handle CONNECTED properly. --- lisp/net/ange-ftp.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el index 16ec33f92dc..3d64b7976b3 100644 --- a/lisp/net/ange-ftp.el +++ b/lisp/net/ange-ftp.el @@ -4233,7 +4233,7 @@ directory, so that Emacs will know its current contents." (host (nth 0 parsed)) (user (nth 1 parsed)) (localname (nth 2 parsed))) - (and (or (not connected) + (and (or (memq connected '(nil never)) (let ((proc (get-process (ange-ftp-ftp-process-buffer host user)))) (and proc (processp proc) (memq (process-status proc) '(run open))))) -- 2.39.5