mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-11 09:20:51 +00:00
Code Issues Releases Activity

* net/ange-ftp.el (ange-ftp-file-remote-p): Handle `localname' as

Browse Source 
identification.
This commit is contained in:
Michael Albinus 2008-09-29 05:42:20 +00:00
parent 9f2f6ad816
commit d5fb39b4c6
2 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/ChangeLog
View File

@ -1,3 +1,11 @@
2008-09-29 Michael Albinus <michael.albinus@gmx.de>
* 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 <rgm@gnu.org>
* vc.el (vc-switches): Give it a doc string.

4
lisp/net/ange-ftp.el
View File

@ -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)