diff options
| author | Chong Yidong <cyd@stupidchicken.com> | 2009-02-07 21:22:55 +0000 |
|---|---|---|
| committer | Chong Yidong <cyd@stupidchicken.com> | 2009-02-07 21:22:55 +0000 |
| commit | 092f7594cde01ac19d60a3117baeb2165587919c (patch) | |
| tree | 5cc0d63f62e78ce2e94704c4c6e9f1c498d01922 /lisp/url/url-file.el | |
| parent | 5d3c5503d7571acf2b4f5bb078054ae9534071c2 (diff) | |
| download | emacs-092f7594cde01ac19d60a3117baeb2165587919c.tar.gz | |
(url-file): Use make-temp-file.
Diffstat (limited to 'lisp/url/url-file.el')
| -rw-r--r-- | lisp/url/url-file.el | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/lisp/url/url-file.el b/lisp/url/url-file.el index 56fe8b0ee2f..bb8f136c6a1 100644 --- a/lisp/url/url-file.el +++ b/lisp/url/url-file.el @@ -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 |