Mercurial > hg > xemacs-beta

changeset 5721:cc852bdbdbaa

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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 1d6995b6986e
children fffa15138019
files lisp/ChangeLog lisp/files.el
diffstat 2 files changed, 5 insertions(+), 16 deletions(-) [+]
line wrap: on
line diff
--- 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)
--- 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))))