Mercurial > emacs
comparison lisp/url/url-cookie.el @ 86848:9bdd5616eaa8
(url-cookie-p): Declare as a function.
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Fri, 30 Nov 2007 08:05:38 +0000 |
parents | 133e736aa5c6 |
children | 63d3464511b4 |
comparison
equal
deleted
inserted
replaced
86847:0152955185ee | 86848:9bdd5616eaa8 |
---|---|
85 (error | 85 (error |
86 ;; It's completely normal for the cookies file not to exist yet. | 86 ;; It's completely normal for the cookies file not to exist yet. |
87 ;; (message "Could not load cookie file %s" fname) | 87 ;; (message "Could not load cookie file %s" fname) |
88 ))) | 88 ))) |
89 | 89 |
90 ;; check-declare does not handle defstruct. | 90 (declare-function url-cookie-p "url-cookie" t t) ; defstruct |
91 ;;;(declare-function url-cookie-p "url-cookie") | |
92 | 91 |
93 (defun url-cookie-clean-up (&optional secure) | 92 (defun url-cookie-clean-up (&optional secure) |
94 (let* ( | 93 (let* ( |
95 (var (if secure 'url-cookie-secure-storage 'url-cookie-storage)) | 94 (var (if secure 'url-cookie-secure-storage 'url-cookie-storage)) |
96 (val (symbol-value var)) | 95 (val (symbol-value var)) |