diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2008-04-27 16:39:03 +0000 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2008-04-27 16:39:03 +0000 |
| commit | 87bdd2c7a5481583bcaf0853ad94561917d64534 (patch) | |
| tree | a9502801306c2c0799a7f76fd9c659397a9b68ac /lisp/net/tramp-compat.el | |
| parent | 2788143d514792c0cb93cb31c017656c7e343937 (diff) | |
| download | emacs-87bdd2c7a5481583bcaf0853ad94561917d64534.tar.gz emacs-87bdd2c7a5481583bcaf0853ad94561917d64534.tar.bz2 emacs-87bdd2c7a5481583bcaf0853ad94561917d64534.zip | |
* 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.
Diffstat (limited to 'lisp/net/tramp-compat.el')
| -rw-r--r-- | lisp/net/tramp-compat.el | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/lisp/net/tramp-compat.el b/lisp/net/tramp-compat.el index b07ffd5f56d..0f66ee2183d 100644 --- a/lisp/net/tramp-compat.el +++ b/lisp/net/tramp-compat.el @@ -153,11 +153,12 @@ this is the function `temp-directory'." (defsubst tramp-compat-make-temp-file (filename) "Create a temporary file (compat function). Add the extension of FILENAME, if existing." - (let ((prefix (expand-file-name - (symbol-value 'tramp-temp-name-prefix) - (tramp-compat-temporary-file-directory))) - (extension (file-name-extension filename t)) - result) + (let* (file-name-handler-alist + (prefix (expand-file-name + (symbol-value 'tramp-temp-name-prefix) + (tramp-compat-temporary-file-directory))) + (extension (file-name-extension filename t)) + result) (condition-case nil (setq result (funcall (symbol-function 'make-temp-file) prefix nil extension)) |