Mercurial > emacs
changeset 94403:f3fa6258dd50
* net/tramp.el (tramp-handle-make-symbolic-link)
(tramp-handle-file-name-directory)
(tramp-handle-file-name-nondirectory, tramp-handle-file-truename)
(tramp-do-copy-or-rename-file-directly)
(tramp-handle-insert-directory, tramp-handle-expand-file-name)
(tramp-handle-substitute-in-file-name)
(tramp-handle-insert-file-contents, tramp-handle-write-region)
* net/tramp-cache.el (tramp-get-file-property)
(tramp-set-file-property, tramp-flush-file-property)
(tramp-flush-directory-property)
* net/tramp-cpmpat.el (tramp-compat-make-temp-file)
* net/tramp-fish.el (tramp-fish-handle-expand-file-name): Disable
`file-name-handler-alist' when handling localname. It could have
a remote file syntax, like a VMS file name.
author | Michael Albinus <michael.albinus@gmx.de> |
---|---|
date | Sun, 27 Apr 2008 16:36:43 +0000 |
parents | 2faa99de7eef |
children | 9ce39a6373c9 |
files | lisp/net/tramp-fish.el |
diffstat | 1 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/net/tramp-fish.el Sun Apr 27 16:36:28 2008 +0000 +++ b/lisp/net/tramp-fish.el Sun Apr 27 16:36:43 2008 +0000 @@ -352,7 +352,7 @@ (tramp-run-real-handler 'expand-file-name (list name nil))) ;; Dissect NAME. (with-parsed-tramp-file-name name nil - (unless (file-name-absolute-p localname) + (unless (tramp-run-real-handler 'file-name-absolute-p (list localname)) (setq localname (concat "~/" localname))) ;; Tilde expansion if necessary. (when (string-match "\\`\\(~[^/]*\\)\\(.*\\)\\'" localname) @@ -385,8 +385,8 @@ (tramp-make-tramp-file-name method user host (tramp-drop-volume-letter - (tramp-run-real-handler 'expand-file-name - (list localname)))))))) + (tramp-run-real-handler + 'expand-file-name (list localname)))))))) (defun tramp-fish-handle-file-attributes (filename &optional id-format) "Like `file-attributes' for Tramp files."