diff options
| author | Michael Albinus | 2023-08-23 11:00:56 +0200 |
|---|---|---|
| committer | Michael Albinus | 2023-08-23 11:00:56 +0200 |
| commit | 74eed03bc2a5844ef6608333bc5ee6e0eee6701e (patch) | |
| tree | 5c40dd1fc0131337b4d5a1291326a554611d6402 | |
| parent | e4dc0d6c7eb234b3a41064f77990eb73721f5bb6 (diff) | |
| download | emacs-74eed03bc2a5844ef6608333bc5ee6e0eee6701e.tar.gz emacs-74eed03bc2a5844ef6608333bc5ee6e0eee6701e.zip | |
* lisp/net/ange-ftp.el (ange-ftp-file-remote-p): Handle CONNECTED properly.
| -rw-r--r-- | lisp/net/ange-ftp.el | 2 |
1 files changed, 1 insertions, 1 deletions
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." | |||
| 4233 | (host (nth 0 parsed)) | 4233 | (host (nth 0 parsed)) |
| 4234 | (user (nth 1 parsed)) | 4234 | (user (nth 1 parsed)) |
| 4235 | (localname (nth 2 parsed))) | 4235 | (localname (nth 2 parsed))) |
| 4236 | (and (or (not connected) | 4236 | (and (or (memq connected '(nil never)) |
| 4237 | (let ((proc (get-process (ange-ftp-ftp-process-buffer host user)))) | 4237 | (let ((proc (get-process (ange-ftp-ftp-process-buffer host user)))) |
| 4238 | (and proc (processp proc) | 4238 | (and proc (processp proc) |
| 4239 | (memq (process-status proc) '(run open))))) | 4239 | (memq (process-status proc) '(run open))))) |