From d5fb39b4c6723ceef19e92ca70f4f01371ff5592 Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Mon, 29 Sep 2008 05:42:20 +0000 Subject: [PATCH] * net/ange-ftp.el (ange-ftp-file-remote-p): Handle `localname' as identification. --- lisp/ChangeLog | 8 ++++++++ lisp/net/ange-ftp.el | 4 +++- 2 files changed, 11 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 3e579879a9..f8af9ff09c 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,11 @@ +2008-09-29 Michael Albinus + + * files.el (file-remote-p): Precise doc string; IDENTIFICATION can + also be `localname'. + + * net/ange-ftp.el (ange-ftp-file-remote-p): Handle `localname' as + identification. + 2008-09-28 Glenn Morris * vc.el (vc-switches): Give it a doc string. diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el index 0d1b16b4b4..eb3174d42a 100644 --- a/lisp/net/ange-ftp.el +++ b/lisp/net/ange-ftp.el @@ -4127,7 +4127,8 @@ directory, so that Emacs will know its current contents." (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 @@ directory, so that Emacs will know its current contents." ((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) -- 2.39.2