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