Mercurial > emacs
changeset 68055:63366306c117
(url-cookie-parse-file): Don't complain of missing file.
(url-cookie-parse-file, url-cookie-write-file, url-cookie-retrieve)
(url-cookie-generate-header-lines, url-cookie-handle-set-cookie)
(url-cookie-setup-save-timer): Remove autoload cookies.
They're only called from files that require url-cookie anyway.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Thu, 05 Jan 2006 22:10:47 +0000 |
| parents | 30042a8370ce |
| children | 2396bdbbc2bb |
| files | lisp/url/ChangeLog lisp/url/url-cookie.el |
| diffstat | 2 files changed, 19 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/url/ChangeLog Thu Jan 05 22:07:30 2006 +0000 +++ b/lisp/url/ChangeLog Thu Jan 05 22:10:47 2006 +0000 @@ -1,3 +1,17 @@ +2006-01-05 Stefan Monnier <monnier@iro.umontreal.ca> + + * url-cookie.el (url-cookie-parse-file): Don't complain of missing file. + (url-cookie-parse-file, url-cookie-write-file, url-cookie-retrieve) + (url-cookie-generate-header-lines, url-cookie-handle-set-cookie) + (url-cookie-setup-save-timer): Remove autoload cookies. + They're only called from files that require url-cookie anyway. + + * url-history.el (url-history-setup-save-timer) + (url-history-parse-history, url-history-save-history): + Remove autoload cookies. They're only called from url.el which requires + url-history anyway. + (url-history-parse-history): Don't complain if the file is missing. + 2006-01-02 Stefan Monnier <monnier@iro.umontreal.ca> * url-handlers.el (url-retrieve-synchronously): Don't autoload.
--- a/lisp/url/url-cookie.el Thu Jan 05 22:07:30 2006 +0000 +++ b/lisp/url/url-cookie.el Thu Jan 05 22:10:47 2006 +0000 @@ -1,7 +1,7 @@ ;;; url-cookie.el --- Netscape Cookie support ;; Copyright (C) 1996, 1997, 1998, 1999, 2004, -;; 2005 Free Software Foundation, Inc. +;; 2005, 2006 Free Software Foundation, Inc. ;; Keywords: comm, data, processes, hypermedia @@ -109,12 +109,14 @@ (defvar url-cookies-changed-since-last-save nil "Whether the cookies list has changed since the last save operation.") -;;;###autoload (defun url-cookie-parse-file (&optional fname) (setq fname (or fname url-cookie-file)) (condition-case () (load fname nil t) - (error (message "Could not load cookie file %s" fname)))) + (error + ;; It's completely normal for the cookies file not to exist yet. + ;; (message "Could not load cookie file %s" fname) + ))) (defun url-cookie-clean-up (&optional secure) (let* ( @@ -145,7 +147,6 @@ (setq new (cons cur new)))) (set var new))) -;;;###autoload (defun url-cookie-write-file (&optional fname) (setq fname (or fname url-cookie-file)) (unless (file-directory-p (file-name-directory fname)) @@ -250,7 +251,6 @@ (* 1 (string-to-number (aref exp-time 0)))))) (> (- cur-norm exp-norm) 1)))))) -;;;###autoload (defun url-cookie-retrieve (host localpart &optional secure) "Retrieve all the netscape-style cookies for a specified HOST and LOCALPART." (let ((storage (if secure @@ -278,7 +278,6 @@ (setq retval (cons cur retval)))))) retval)) -;;;###autoload (defun url-cookie-generate-header-lines (host localpart secure) (let* ((cookies (url-cookie-retrieve host localpart secure)) (retval nil) @@ -344,7 +343,6 @@ (t nil)))) -;;;###autoload (defun url-cookie-handle-set-cookie (str) (setq url-cookies-changed-since-last-save t) (let* ((args (url-parse-args str t)) @@ -457,7 +455,6 @@ :type 'integer :group 'url) -;;;###autoload (defun url-cookie-setup-save-timer () "Reset the cookie saver timer." (interactive)