martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Michael Albinus
2023-08-23 11:00:56 +02:00
parent e4dc0d6c7e
commit 74eed03bc2
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/net/ange-ftp.el
View File

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