Mercurial > hg > xemacs-beta
diff 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 |
line wrap: on
line diff
--- a/lisp/files.el Wed Feb 20 11:09:08 2013 +0100 +++ b/lisp/files.el Wed Feb 20 11:15:25 2013 +0100 @@ -4459,22 +4459,6 @@ (cond (handler (funcall handler 'file-remote-p file identification connected)) - ;; legacy code; can probably go by mid-2008 - ((fboundp 'efs-ftp-path) - (let ((parsed (declare-fboundp (efs-ftp-path file)))) - (and parsed - (let ((host (nth 0 parsed)) - (user (nth 1 parsed))) - (and (or (not connected) - (let ((proc (get-process (declare-fboundp (efs-ftp-process-buffer host user))))) - (and proc (processp proc) - (memq (process-status proc) '(run open))))) - (cond - ((eq identification 'method) (and parsed "ftp")) - ((eq identification 'user) user) - ((eq identification 'host) host) - (t - (concat "/" user "@" host ":/")))))))) (t nil))))