Commit bba31a09 authored by Michael Albinus's avatar Michael Albinus
Browse files

* net/tramp.el (tramp-make-temp-file): New parameter FILENAME.

Append its extension to the resulting temporary file name.
(tramp-handle-file-local-copy, tramp-handle-write-region): Apply
it.

* net/tramp-smb.el (tramp-smb-handle-file-local-copy)
(tramp-smb-handle-write-region): Apply it.
parent 47ccd97c
2007-03-05 Michael Albinus <michael.albinus@gmx.de>
* net/tramp.el (tramp-make-temp-file): New parameter FILENAME.
Append its extension to the resulting temporary file name.
(tramp-handle-file-local-copy, tramp-handle-write-region): Apply
it.
* net/tramp-smb.el (tramp-smb-handle-file-local-copy)
(tramp-smb-handle-write-region): Apply it.
2007-03-05 Alin C. Soare <alinsoar@voila.fr> (tiny change)
* emacs-lisp/lisp-mode.el (calculate-lisp-indent):
* emacs-lisp/lisp-mode.el (calculate-lisp-indent):
Redo previous change.
2007-03-04 Kevin Rodgers <kevin.d.rodgers@gmail.com>
......@@ -384,7 +384,7 @@ KEEP-DATE is not handled in case NEWNAME resides on an SMB server."
(save-excursion
(let ((share (tramp-smb-get-share localname))
(file (tramp-smb-get-localname localname t))
(tmpfil (tramp-make-temp-file)))
(tmpfil (tramp-make-temp-file filename)))
(unless (file-exists-p filename)
(error "Cannot make local copy of non-existing file `%s'" filename))
(tramp-message-for-buffer
......@@ -595,7 +595,7 @@ Catches errors for shares like \"C$/\", which are common in Microsoft Windows."
(curbuf (current-buffer))
tmpfil)
;; Write region into a tmp file.
(setq tmpfil (tramp-make-temp-file))
(setq tmpfil (tramp-make-temp-file filename))
;; We say `no-message' here because we don't want the visited file
;; modtime data to be clobbered from the temp file. We call
;; `set-visited-file-modtime' ourselves later on.
......
......@@ -3771,10 +3771,12 @@ This will break if COMMAND prints a newline, followed by the value of
;; File Editing.
(defsubst tramp-make-temp-file ()
(funcall (if (fboundp 'make-temp-file) 'make-temp-file 'make-temp-name)
(expand-file-name tramp-temp-name-prefix
(tramp-temporary-file-directory))))
(defsubst tramp-make-temp-file (filename)
(concat
(funcall (if (fboundp 'make-temp-file) 'make-temp-file 'make-temp-name)
(expand-file-name tramp-temp-name-prefix
(tramp-temporary-file-directory)))
(file-name-extension filename t)))
(defun tramp-handle-file-local-copy (filename)
"Like `file-local-copy' for tramp files."
......@@ -3794,7 +3796,7 @@ This will break if COMMAND prints a newline, followed by the value of
(unless (file-exists-p filename)
(error "Cannot make local copy of non-existing file `%s'"
filename))
(setq tmpfil (tramp-make-temp-file))
(setq tmpfil (tramp-make-temp-file filename))
(cond ((tramp-method-out-of-band-p multi-method method user host)
;; `copy-file' handles out-of-band methods
......@@ -3846,7 +3848,7 @@ This will break if COMMAND prints a newline, followed by the value of
(kill-buffer tmpbuf))
;; If tramp-decoding-function is not defined for this
;; method, we invoke tramp-decoding-command instead.
(let ((tmpfil2 (tramp-make-temp-file)))
(let ((tmpfil2 (tramp-make-temp-file filename)))
(write-region (point-min) (point-max) tmpfil2)
(tramp-message
6 "Decoding remote file %s with command %s..."
......@@ -4053,7 +4055,7 @@ Returns a file name in `tramp-auto-save-directory' for autosaving this file."
;; Write region into a tmp file. This isn't really needed if we
;; use an encoding function, but currently we use it always
;; because this makes the logic simpler.
(setq tmpfil (tramp-make-temp-file))
(setq tmpfil (tramp-make-temp-file filename))
;; Set current buffer. If connection wasn't open, `file-modes' has
;; changed it accidently.
(set-buffer curbuf)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment