diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2018-11-22 16:29:25 +0100 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2018-11-22 16:29:25 +0100 |
| commit | a344d9937bb7edfbfbea13dca1569fcdcad25ac2 (patch) | |
| tree | eb794729c0c86c65b30ce3456864f216f5648ed5 /lisp/net/tramp-ftp.el | |
| parent | ad063d2552d4d31fa668fa5f15a91aec18c010f6 (diff) | |
| download | emacs-a344d9937bb7edfbfbea13dca1569fcdcad25ac2.tar.gz emacs-a344d9937bb7edfbfbea13dca1569fcdcad25ac2.tar.bz2 emacs-a344d9937bb7edfbfbea13dca1569fcdcad25ac2.zip | |
Some minor Tramp cleanups
* lisp/net/tramp-adb.el (tramp-adb-file-name-p):
* lisp/net/tramp-ftp.el (tramp-ftp-file-name-p):
* lisp/net/tramp-smb.el (tramp-smb-file-name-p): Make it more robust.
* lisp/net/tramp.el (tramp-handle-file-truename): Cache only the
localname.
Diffstat (limited to 'lisp/net/tramp-ftp.el')
| -rw-r--r-- | lisp/net/tramp-ftp.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/net/tramp-ftp.el b/lisp/net/tramp-ftp.el index 983f168ddb4..5d8b56e218f 100644 --- a/lisp/net/tramp-ftp.el +++ b/lisp/net/tramp-ftp.el @@ -183,8 +183,9 @@ pass to the OPERATION." ;;;###tramp-autoload (defsubst tramp-ftp-file-name-p (filename) "Check if it's a filename that should be forwarded to Ange-FTP." - (string= (tramp-file-name-method (tramp-dissect-file-name filename)) - tramp-ftp-method)) + (and (tramp-tramp-file-p filename) + (string= (tramp-file-name-method (tramp-dissect-file-name filename)) + tramp-ftp-method))) ;;;###tramp-autoload (add-to-list 'tramp-foreign-file-name-handler-alist |