[Emacs-diffs] emacs/lisp/url url-file.el

[Chong Yidong]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Chong Yidong <cyd>      09/02/07 21:22:55

Modified files:
        lisp/url       : url-file.el 

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

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/url/url-file.el?cvsroot=emacs&r1=1.24&r2=1.25

Patches:
Index: url-file.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/url/url-file.el,v
retrieving revision 1.24
retrieving revision 1.25
diff -u -b -r1.24 -r1.25
--- url-file.el 5 Jan 2009 03:24:17 -0000       1.24
+++ url-file.el 7 Feb 2009 21:22:55 -0000       1.25
@@ -88,7 +88,6 @@
 (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 @@
                                        (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