[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp/url url-file.el
From: |
Chong Yidong |
Subject: |
[Emacs-diffs] emacs/lisp/url url-file.el |
Date: |
Sat, 07 Feb 2009 21:22:55 +0000 |
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs/lisp/url url-file.el,
Chong Yidong <=