Mercurial > emacs
changeset 81934:7a3210e699fe
* files.el (file-remote-p): Introduce optional parameter
IDENTIFICATION.
| author | Michael Albinus <michael.albinus@gmx.de> |
|---|---|
| date | Tue, 17 Jul 2007 21:07:49 +0000 |
| parents | a5a2ef19d358 |
| children | 66d338352087 |
| files | lisp/files.el |
| diffstat | 1 files changed, 7 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/files.el Tue Jul 17 15:13:24 2007 +0000 +++ b/lisp/files.el Tue Jul 17 21:07:49 2007 +0000 @@ -727,7 +727,7 @@ (cons load-path (get-load-suffixes))))) (load library)) -(defun file-remote-p (file &optional connected) +(defun file-remote-p (file &optional identification connected) "Test whether FILE specifies a location on a remote system. Return an identification of the system if the location is indeed remote. The identification of the system may comprise a method @@ -736,6 +736,11 @@ For example, the filename \"/user@host:/foo\" specifies a location on the system \"/user@host:\". +IDENTIFICATION specifies which part of the identification shall +be returned as string. IDENTIFICATION can be the symbol +`method', `user' or `host'; any other value is handled like nil +and means to return the complete identification string. + If CONNECTED is non-nil, the function returns an identification only if FILE is located on a remote system, and a connection is established to that remote system. @@ -743,7 +748,7 @@ `file-remote-p' will never open a connection on its own." (let ((handler (find-file-name-handler file 'file-remote-p))) (if handler - (funcall handler 'file-remote-p file connected) + (funcall handler 'file-remote-p file identification connected) nil))) (defun file-local-copy (file)