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

(tramp-handle-file-remote-p): New implementation to

Browse Source 
agree with new return value of `file-remote-p'.
This syncs with Tramp 2.0.42.
This commit is contained in:
Kai Großjohann 2004-06-26 15:28:33 +00:00
parent f3e6add22d
commit 15cc764cd1
2 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -1,5 +1,9 @@
2004-06-26 Kai Grossjohann <kai.grossjohann@gmx.net>
* net/tramp.el (tramp-handle-file-remote-p): New implementation to
agree with new return value of `file-remote-p'.
This syncs with Tramp 2.0.42.
* net/ange-ftp.el (ange-ftp-file-remote-p): New return value,
according to new documentation of `file-remote-p'.

9
lisp/net/tramp.el
View File

@ -3542,7 +3542,14 @@ This will break if COMMAND prints a newline, followed by the value of
(defun tramp-handle-file-remote-p (filename)
"Like `file-remote-p' for tramp files."
(when (tramp-tramp-file-p filename) t))
(when (tramp-tramp-file-p filename)
(with-parsed-tramp-file-name filename nil
(make-tramp-file-name
:multi-method multi-method
:method method
:user user
:host host
:localname ""))))
(defun tramp-handle-insert-file-contents
(filename &optional visit beg end replace)