mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-26 19:18:50 +00:00
Code Issues Releases Activity

(url-generate-unique-filename): Silence compiler.

Browse Source
This commit is contained in:
Glenn Morris 2009-02-10 03:27:29 +00:00
parent 908e900dce
commit f0cfa8f0c2
2 changed files with 23 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/url/ChangeLog
View File

@ -1,3 +1,7 @@
2009-02-10 Glenn Morris <rgm@gnu.org>
* url-util.el (url-generate-unique-filename): Silence compiler.
2009-02-07 Chong Yidong <cyd@stupidchicken.com>
* url-file.el (url-file): Use make-temp-file.

36
lisp/url/url-util.el
View File

@ -1,7 +1,7 @@
;;; url-util.el --- Miscellaneous helper routines for URL library
;; Copyright (C) 1996, 1997, 1998, 1999, 2001, 2004,
;; 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc.
;; Copyright (C) 1996, 1997, 1998, 1999, 2001, 2004, 2005, 2006, 2007,
;; 2008, 2009 Free Software Foundation, Inc.
;; Author: Bill Perry <wmperry@gnu.org>
;; Keywords: comm, data, processes
@ -476,25 +476,27 @@ Has a preference for looking backward when not directly on a symbol."
(defun url-generate-unique-filename (&optional fmt)
"Generate a unique filename in `url-temporary-directory'."
(if (not fmt)
(let ((base (format "url-tmp.%d" (user-real-uid)))
;; This variable is obsolete, but so is this function.
(let ((tempdir (with-no-warnings url-temporary-directory)))
(if (not fmt)
(let ((base (format "url-tmp.%d" (user-real-uid)))
(fname "")
(x 0))
(setq fname (format "%s%d" base x))
(while (file-exists-p
(expand-file-name fname tempdir))
(setq x (1+ x)
fname (concat base (int-to-string x))))
(expand-file-name fname tempdir))
(let ((base (concat "url" (int-to-string (user-real-uid))))
(fname "")
(x 0))
(setq fname (format "%s%d" base x))
(setq fname (format fmt (concat base (int-to-string x))))
(while (file-exists-p
(expand-file-name fname url-temporary-directory))
(expand-file-name fname tempdir))
(setq x (1+ x)
fname (concat base (int-to-string x))))
(expand-file-name fname url-temporary-directory))
(let ((base (concat "url" (int-to-string (user-real-uid))))
(fname "")
(x 0))
(setq fname (format fmt (concat base (int-to-string x))))
(while (file-exists-p
(expand-file-name fname url-temporary-directory))
(setq x (1+ x)
fname (format fmt (concat base (int-to-string x)))))
(expand-file-name fname url-temporary-directory))))
fname (format fmt (concat base (int-to-string x)))))
(expand-file-name fname tempdir)))))
(make-obsolete 'url-generate-unique-filename 'make-temp-file "23.1")
(defun url-extract-mime-headers ()