Mercurial > emacs
diff lisp/net/tramp-compat.el @ 94402:2faa99de7eef
* 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:28 +0000 |
parents | 9ee1ca8ab653 |
children | 91e5880a36c1 |
line wrap: on
line diff
--- a/lisp/net/tramp-compat.el Sun Apr 27 16:36:14 2008 +0000 +++ b/lisp/net/tramp-compat.el Sun Apr 27 16:36:28 2008 +0000 @@ -153,11 +153,12 @@ (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))