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

[Michael Albinus]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Michael Albinus <albinus>       08/09/29 05:41:57

Index: ange-ftp.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/net/ange-ftp.el,v
retrieving revision 1.99
retrieving revision 1.100
diff -u -b -r1.99 -r1.100
--- ange-ftp.el 6 May 2008 07:31:44 -0000       1.99
+++ ange-ftp.el 29 Sep 2008 05:41:56 -0000      1.100
@@ -4127,7 +4127,8 @@
 (defun ange-ftp-file-remote-p (file &optional identification connected)
   (let* ((parsed (ange-ftp-ftp-name file))
         (host (nth 0 parsed))
-        (user (nth 1 parsed)))
+        (user (nth 1 parsed))
+        (localname (nth 2 parsed)))
     (and (or (not connected)
             (let ((proc (get-process (ange-ftp-ftp-process-buffer host user))))
               (and proc (processp proc)
@@ -4136,6 +4137,7 @@
          ((eq identification 'method) (and parsed "ftp"))
          ((eq identification 'user) user)
          ((eq identification 'host) host)
+         ((eq identification 'localname) localname)
          (t (ange-ftp-replace-name-component file ""))))))
 
 (defun ange-ftp-load (file &optional noerror nomessage nosuffix)