Mercurial > emacs
changeset 71788:c4527316e616
Remove spurious * in docstrings.
(url-cookie-write-file): Don't use versioned backups.
(url-cookie-host-can-set-p): Remove unused var `tmp'.
(url-cookie-save-interval): Move to url-cookie group.
(url-cookie-write-file): Reset url-cookies-changed-since-last-save.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Tue, 11 Jul 2006 15:03:24 +0000 |
| parents | 7e302766894f |
| children | aa53161fdb21 |
| files | lisp/url/ChangeLog lisp/url/url-cookie.el |
| diffstat | 2 files changed, 24 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/url/ChangeLog Tue Jul 11 13:52:21 2006 +0000 +++ b/lisp/url/ChangeLog Tue Jul 11 15:03:24 2006 +0000 @@ -1,3 +1,14 @@ +2006-07-11 Stefan Monnier <monnier@iro.umontreal.ca> + + * url-cookie.el: Remove spurious * in docstrings. + (url-cookie-write-file): Don't use versioned backups. + (url-cookie-host-can-set-p): Remove unused var `tmp'. + +2006-07-04 Andreas Seltenreich <uwi7@rz.uni-karlsruhe.de> (tiny change) + + * url-cookie.el (url-cookie-save-interval): Move to url-cookie group. + (url-cookie-write-file): Reset url-cookies-changed-since-last-save. + 2006-05-12 Reiner Steib <Reiner.Steib@gmx.de> * url-http.el (url-http-file-exists-p): Test if status is integer.
--- a/lisp/url/url-cookie.el Tue Jul 11 13:52:21 2006 +0000 +++ b/lisp/url/url-cookie.el Tue Jul 11 15:03:24 2006 +0000 @@ -88,18 +88,18 @@ (defvar url-cookie-storage nil "Where cookies are stored.") (defvar url-cookie-secure-storage nil "Where secure cookies are stored.") (defcustom url-cookie-file nil - "*File where cookies are stored on disk." + "File where cookies are stored on disk." :type '(choice (const :tag "Default" :value nil) file) :group 'url-file :group 'url-cookie) (defcustom url-cookie-confirmation nil - "*If non-nil, confirmation by the user is required to accept HTTP cookies." + "If non-nil, confirmation by the user is required to accept HTTP cookies." :type 'boolean :group 'url-cookie) (defcustom url-cookie-multiple-line nil - "*If nil, HTTP requests put all cookies for the server on one line. + "If nil, HTTP requests put all cookies for the server on one line. Some web servers, such as http://www.hotmail.com/, only accept cookies when they are on one line. This is broken behavior, but just try telling Microsoft that." @@ -168,7 +168,13 @@ (insert ")\n(setq url-cookie-secure-storage\n '") (pp url-cookie-secure-storage (current-buffer)) (insert ")\n") + (insert " ;; Local Variables:\n" + ";; version-control: never\n" + ";; no-byte-compile: t\n" + ";; End:\n") + (set (make-local-variable 'version-control) t) (write-file fname) + (setq url-cookies-changed-since-last-save nil) (kill-buffer (current-buffer)))))) (defun url-cookie-store (name value &optional expires domain localpart secure) @@ -313,18 +319,17 @@ '.'s in the domain name in order to set a cookie.") (defcustom url-cookie-trusted-urls nil - "*A list of regular expressions matching URLs to always accept cookies from." + "A list of regular expressions matching URLs to always accept cookies from." :type '(repeat regexp) :group 'url-cookie) (defcustom url-cookie-untrusted-urls nil - "*A list of regular expressions matching URLs to never accept cookies from." + "A list of regular expressions matching URLs to never accept cookies from." :type '(repeat regexp) :group 'url-cookie) (defun url-cookie-host-can-set-p (host domain) (let ((numdots 0) - (tmp domain) (last nil) (case-fold-search t) (mindots 3)) @@ -444,7 +449,7 @@ (defvar url-cookie-timer nil) (defcustom url-cookie-save-interval 3600 - "*The number of seconds between automatic saves of cookies. + "The number of seconds between automatic saves of cookies. Default is 1 hour. Note that if you change this variable outside of the `customize' interface after `url-do-setup' has been run, you need to run the `url-cookie-setup-save-timer' function manually." @@ -453,7 +458,7 @@ (if (bound-and-true-p url-setup-done) (url-cookie-setup-save-timer))) :type 'integer - :group 'url) + :group 'url-cookie) (defun url-cookie-setup-save-timer () "Reset the cookie saver timer."