mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-08 20:58:58 +00:00
Code Issues Releases Activity

* files.el (file-remote-p): Introduce optional parameter

Browse Source 
IDENTIFICATION.
This commit is contained in:
Michael Albinus 2007-07-17 21:07:49 +00:00
parent 172aa4c11b
commit ac25542d33
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/files.el
View File

@ -727,7 +727,7 @@ 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 &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 @@ 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:\".
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 @@ to that remote system.
`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)