[Emacs-diffs] Changes to emacs/lisp/url/url-cache.el

[Thien-Thi Nguyen]

Index: emacs/lisp/url/url-cache.el
diff -c emacs/lisp/url/url-cache.el:1.7 emacs/lisp/url/url-cache.el:1.8
*** emacs/lisp/url/url-cache.el:1.7     Mon Jul  4 16:37:19 2005
--- emacs/lisp/url/url-cache.el Sat Aug  6 15:55:38 2005
***************
*** 1,6 ****
  ;;; url-cache.el --- Uniform Resource Locator retrieval tool
  
! ;; Copyright (c) 1996 - 1999 Free Software Foundation, Inc.
  
  ;; Keywords: comm, data, processes, hypermedia
  
--- 1,7 ----
  ;;; url-cache.el --- Uniform Resource Locator retrieval tool
  
! ;; Copyright (C) 1996, 1997, 1998, 1999, 2004,
! ;;   2005 Free Software Foundation, Inc.
  
  ;; Keywords: comm, data, processes, hypermedia
  
***************
*** 39,45 ****
         (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
--- 40,46 ----
         (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,76 ****
        (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."
--- 71,77 ----
        (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."