[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 74eed03bc2a 2/3: * lisp/net/ange-ftp.el (ange-ftp-file-remote-p):
From: |
Michael Albinus |
Subject: |
master 74eed03bc2a 2/3: * lisp/net/ange-ftp.el (ange-ftp-file-remote-p): Handle CONNECTED properly. |
Date: |
Wed, 23 Aug 2023 05:02:19 -0400 (EDT) |
branch: master
commit 74eed03bc2a5844ef6608333bc5ee6e0eee6701e
Author: Michael Albinus <michael.albinus@gmx.de>
Commit: Michael Albinus <michael.albinus@gmx.de>
* 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)))))