From: Leo Liu Date: Sun, 29 May 2011 02:45:03 +0000 (+0800) Subject: Add option :named to defstruct in url-cookie.el X-Git-Tag: emacs-pretest-24.0.90~104^2~618^2~107 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b1c83d95b3d6d80137a76911581e6531a3376982;p=emacs.git Add option :named to defstruct in url-cookie.el or url-cookie-p won't be defined. See http://debbugs.gnu.org/cgi/bugreport.cgi?bug=8747 for details. --- diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog index 1049d09d6db..37a9fb8ffe2 100644 --- a/lisp/url/ChangeLog +++ b/lisp/url/ChangeLog @@ -1,3 +1,8 @@ +2011-05-29 Leo Liu + + * url-cookie.el (url-cookie): Add option :named so that + url-cookie-p is defined. (Bug#8747) + 2011-05-02 Lars Magne Ingebrigtsen * url-queue.el: New file. diff --git a/lisp/url/url-cookie.el b/lisp/url/url-cookie.el index 7fdd8b174c1..78afa1633b6 100644 --- a/lisp/url/url-cookie.el +++ b/lisp/url/url-cookie.el @@ -35,17 +35,13 @@ :group 'url) ;; A cookie is stored internally as a vector of 7 slots -;; [ cookie NAME VALUE EXPIRES LOCALPART DOMAIN SECURE ] +;; [ url-cookie NAME VALUE EXPIRES LOCALPART DOMAIN SECURE ] (defstruct (url-cookie (:constructor url-cookie-create) (:copier nil) - ;; For compatibility with a previous version which did not use - ;; defstruct, and also in order to make sure that the printed - ;; representation does not depend on CL internals, we use an - ;; explicitly managed tag. - (:type vector)) - (tag 'cookie :read-only t) + (:type vector) + :named) name value expires localpart domain secure) (defvar url-cookie-storage nil "Where cookies are stored.") @@ -77,8 +73,6 @@ telling Microsoft that." ;; It's completely normal for the cookies file not to exist yet. (load (or fname url-cookie-file) t t)) -(declare-function url-cookie-p "url-cookie" t t) ; defstruct - (defun url-cookie-clean-up (&optional secure) (let ((var (if secure 'url-cookie-secure-storage 'url-cookie-storage)) new new-cookies)