diff options
Diffstat (limited to 'lisp/files.el')
| -rw-r--r-- | lisp/files.el | 12 |
1 files changed, 3 insertions, 9 deletions
diff --git a/lisp/files.el b/lisp/files.el index 9458f231c8d..69ed54c5633 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -727,23 +727,17 @@ This is an interface to the function `load'." (cons load-path (get-load-suffixes))))) (load library)) -(defun file-remote-p (file &optional connected) +(defun file-remote-p (file) "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 to access the system and its hostname, amongst other things. For example, the filename \"/user@host:/foo\" specifies a location -on the system \"/user@host:\". - -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. - -`file-remote-p' will never open a connection on its own." +on the system \"/user@host:\"." (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) nil))) (defun file-local-copy (file) |