Mercurial > hg > xemacs-beta
comparison lisp/files.el @ 5721:cc852bdbdbaa
Remove obsolete legacy code in `file-remote-p'.
2013-02-20 Michael Sperber <mike@xemacs.org>
* files.el (file-remote-p): Remove an ancient piece of obsolete
legacy code that looks at `efs-ftp-path'.
| author | Mike Sperber <sperber@deinprogramm.de> |
|---|---|
| date | Wed, 20 Feb 2013 11:15:25 +0100 |
| parents | dae33b5feffe |
| children | 182d01410b8d |
comparison
equal
deleted
inserted
replaced
| 5720:1d6995b6986e | 5721:cc852bdbdbaa |
|---|---|
| 4457 `file-remote-p' will never open a connection on its own." | 4457 `file-remote-p' will never open a connection on its own." |
| 4458 (let ((handler (find-file-name-handler file 'file-remote-p))) | 4458 (let ((handler (find-file-name-handler file 'file-remote-p))) |
| 4459 (cond | 4459 (cond |
| 4460 (handler | 4460 (handler |
| 4461 (funcall handler 'file-remote-p file identification connected)) | 4461 (funcall handler 'file-remote-p file identification connected)) |
| 4462 ;; legacy code; can probably go by mid-2008 | |
| 4463 ((fboundp 'efs-ftp-path) | |
| 4464 (let ((parsed (declare-fboundp (efs-ftp-path file)))) | |
| 4465 (and parsed | |
| 4466 (let ((host (nth 0 parsed)) | |
| 4467 (user (nth 1 parsed))) | |
| 4468 (and (or (not connected) | |
| 4469 (let ((proc (get-process (declare-fboundp (efs-ftp-process-buffer host user))))) | |
| 4470 (and proc (processp proc) | |
| 4471 (memq (process-status proc) '(run open))))) | |
| 4472 (cond | |
| 4473 ((eq identification 'method) (and parsed "ftp")) | |
| 4474 ((eq identification 'user) user) | |
| 4475 ((eq identification 'host) host) | |
| 4476 (t | |
| 4477 (concat "/" user "@" host ":/")))))))) | |
| 4478 (t nil)))) | 4462 (t nil)))) |
| 4479 | 4463 |
| 4480 | 4464 |
| 4481 ;; We use /: as a prefix to "quote" a file name | 4465 ;; We use /: as a prefix to "quote" a file name |
| 4482 ;; so that magic file name handlers will not apply to it. | 4466 ;; so that magic file name handlers will not apply to it. |