Mercurial > emacs
diff lisp/url/url-cache.el @ 64748:875dcc490074
Update years in copyright notice; nfc.
author | Thien-Thi Nguyen <ttn@gnuvola.org> |
---|---|
date | Sat, 06 Aug 2005 15:55:38 +0000 |
parents | a8fa7c632ee4 |
children | eebc9bf86f06 532e0a9335a9 |
line wrap: on
line diff
--- a/lisp/url/url-cache.el Sat Aug 06 07:42:06 2005 +0000 +++ b/lisp/url/url-cache.el Sat Aug 06 15:55:38 2005 +0000 @@ -1,6 +1,7 @@ ;;; url-cache.el --- Uniform Resource Locator retrieval tool -;; Copyright (c) 1996 - 1999 Free Software Foundation, Inc. +;; Copyright (C) 1996, 1997, 1998, 1999, 2004, +;; 2005 Free Software Foundation, Inc. ;; Keywords: comm, data, processes, hypermedia @@ -39,7 +40,7 @@ (if (file-exists-p file) (not (file-directory-p file)) (file-directory-p (file-name-directory file))))) - + (defun url-cache-prepare (file) "Makes it possible to cache data in FILE. Creates any necessary parent directories, deleting any non-directory files @@ -70,7 +71,7 @@ (if (url-cache-prepare fname) (let ((coding-system-for-write 'binary)) (write-region (point-min) (point-max) fname nil 5))))))) - + ;;;###autoload (defun url-is-cached (url) "Return non-nil if the URL is cached."