# HG changeset patch
# User Mike Sperber <sperber@deinprogramm.de>
# Date 1361355325 -3600
# Node ID cc852bdbdbaab6c6ea04badff35fb8e3c643b704
# Parent  1d6995b6986e282d45a376b0848a174757aac791
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'.

diff -r 1d6995b6986e -r cc852bdbdbaa lisp/ChangeLog
--- a/lisp/ChangeLog	Wed Feb 20 11:09:08 2013 +0100
+++ b/lisp/ChangeLog	Wed Feb 20 11:15:25 2013 +0100
@@ -1,3 +1,8 @@
+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'.
+
 2013-02-20  Michael Sperber  <mike@xemacs.org>
 
 	* font-lock.el (font-lock-beg)
diff -r 1d6995b6986e -r cc852bdbdbaa lisp/files.el
--- 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))))