mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-30 09:00:31 -08:00
Code Issues Projects Releases Wiki Activity

(url-file): Use make-temp-file.

Browse source
This commit is contained in:
Chong Yidong 2009-02-07 21:22:55 +00:00
parent 5d3c5503d7
commit 092f7594cd
1 changed files with 2 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/url/url-file.el
View file

@ -88,7 +88,6 @@ to them."
(declare-function ange-ftp-copy-file-internal "ange-ftp"
(filename newname ok-if-already-exists
keep-date &optional msg cont nowait))
(declare-function url-generate-unique-filename "url-util" (&optional fmt))
(defun url-file-build-filename (url)
(if (not (vectorp url))
@ -202,10 +201,8 @@ to them."
(current-buffer)
callback cbargs))
;; FTP handling
(let* ((extension (url-file-extension filename))
(new (url-generate-unique-filename
(and (> (length extension) 0)
(concat "%s." extension)))))
(let ((new (make-temp-file
(format "url-tmp.%d" (user-real-uid)))))
(if (featurep 'ange-ftp)
(ange-ftp-copy-file-internal filename (expand-file-name new) t
nil t