Commits

Michael Sperber committed cc852bd

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'.

  • Participants
  • Parent commits 1d6995b

Comments (0)

Files changed (2)

File lisp/ChangeLog

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

File lisp/files.el

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