Mercurial > emacs

comparison lisp/url/url-handlers.el @ 72520:97366e4e79a5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(url-file-local-copy): Tell url-copy-file that the dest file will already exist.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Fri, 25 Aug 2006 20:41:06 +0000
parents 00c538418054
children e3694f1cb928 694bbb62a75d
comparison
equal deleted inserted replaced
72519:3a91203cdb2a 72520:97366e4e79a5
211 (defun url-file-local-copy (url &rest ignored) 211 (defun url-file-local-copy (url &rest ignored)
212 "Copy URL into a temporary file on this machine. 212 "Copy URL into a temporary file on this machine.
213 Returns the name of the local copy, or nil, if FILE is directly 213 Returns the name of the local copy, or nil, if FILE is directly
214 accessible." 214 accessible."
215 (let ((filename (make-temp-file "url"))) 215 (let ((filename (make-temp-file "url")))
216 (url-copy-file url filename) 216 (url-copy-file url filename 'ok-if-already-exists)
217 filename)) 217 filename))
218 218
219 (defun url-insert (buffer &optional beg end) 219 (defun url-insert (buffer &optional beg end)
220 "Insert the body of a URL object. 220 "Insert the body of a URL object.
221 BUFFER should be a complete URL buffer as returned by `url-retrieve'. 221 BUFFER should be a complete URL buffer as returned by `url-retrieve'.