Mercurial > emacs

changeset 98390:e2da96799e45

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* net/ange-ftp.el (ange-ftp-file-remote-p): Handle `localname' as identification.
author Michael Albinus <michael.albinus@gmx.de>
date Mon, 29 Sep 2008 05:41:56 +0000
parents 05e41fd49efc
children 827691e8a15e
files lisp/net/ange-ftp.el
diffstat 1 files changed, 3 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/net/ange-ftp.el	Mon Sep 29 05:39:39 2008 +0000
+++ b/lisp/net/ange-ftp.el	Mon Sep 29 05:41:56 2008 +0000
@@ -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)