]> git.eshelyaron.com Git - emacs.git/commitdiff
Remove spurious * in docstrings.
authorStefan Monnier <monnier@iro.umontreal.ca>
Tue, 11 Jul 2006 15:03:24 +0000 (15:03 +0000)
committerStefan Monnier <monnier@iro.umontreal.ca>
Tue, 11 Jul 2006 15:03:24 +0000 (15:03 +0000)
(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.

lisp/url/ChangeLog
lisp/url/url-cookie.el

index 8eb2cd8471b610c5684520de88663aea914d87a6..e8848528e18ff70e7b098c1a262046650370f001 100644 (file)
@@ -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.
index 53ba75f4cbbda2db137e840079cc1980c817b5c0..e74d49891170fbd9905c4c43e283cc7662d73d51 100644 (file)
@@ -88,18 +88,18 @@ A cookie vector object is a vector of 7 slots:
 (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 @@ telling Microsoft that."
       (insert ")\n(setq url-cookie-secure-storage\n '")
       (pp url-cookie-secure-storage (current-buffer))
       (insert ")\n")
+      (insert "\f;; 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 @@ telling Microsoft that."
 '.'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 @@ telling Microsoft that."
 (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 @@ to run the `url-cookie-setup-save-timer' function manually."
           (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."