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

[Miles Bader]

Index: emacs/lisp/net/ange-ftp.el
diff -c emacs/lisp/net/ange-ftp.el:1.50.2.2 emacs/lisp/net/ange-ftp.el:1.50.2.3
*** emacs/lisp/net/ange-ftp.el:1.50.2.2 Mon Jun 28 07:29:48 2004
--- emacs/lisp/net/ange-ftp.el  Tue Jun 29 16:45:23 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)