[Emacs-diffs] Changes to emacs/lisp/net/ange-ftp.el [lexbind]

[Miles Bader]

Index: emacs/lisp/net/ange-ftp.el
diff -c emacs/lisp/net/ange-ftp.el:1.35.2.4 emacs/lisp/net/ange-ftp.el:1.35.2.5
*** emacs/lisp/net/ange-ftp.el:1.35.2.4 Tue Jul  6 09:31:51 2004
--- emacs/lisp/net/ange-ftp.el  Tue Jul  6 10:23:37 2004
***************
*** 4117,4123 ****
          tmp1))))
  
  (defun ange-ftp-file-remote-p (file)
!   (when (ange-ftp-ftp-name file) t))
  
  (defun ange-ftp-load (file &optional noerror nomessage nosuffix)
    (if (ange-ftp-ftp-name file)
--- 4117,4123 ----
          tmp1))))
  
  (defun ange-ftp-file-remote-p (file)
!   (ange-ftp-replace-name-component file ""))
  
  (defun ange-ftp-load (file &optional noerror nomessage nosuffix)
    (if (ange-ftp-ftp-name file)