HOME

Mini Shell 1.0
Current File : //usr/share/emacs/26.1/lisp/url/url-cookie.elc
;ELC
;;; Compiled
;;; in Emacs version 26.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\300\301!\210\300\302!\210\300\303!\210\304\305\306\307\310\311\310\312\313\314&	\207" [require url-util url-parse url-domsuf custom-declare-group url-cookie nil "URL cookies." :prefix "url-" "url-cookie-" :group url] 10)
#@69 compiler-macro for inlining `url-cookie-p'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'url-cookie-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block url-cookie-p (and (vectorp cl-x) (>= (length cl-x) 7) (memq (aref cl-x 0) cl-struct-url-cookie-tags) t)) nil] 9 (#$ . 642)])
(put 'url-cookie-p 'compiler-macro 'url-cookie-p--cmacro)
#@13 

(fn CL-X)
(defalias 'url-cookie-p #[257 "\301!\205\211G\302Y\205\211\303H>\205\304\207" [cl-struct-url-cookie-tags vectorp 7 0 t] 3 (#$ . 1010)])
(byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put url-cookie-p side-effect-free error-free put url-cookie cl-deftype-satisfies] 5)
#@72 compiler-macro for inlining `url-cookie-name'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'url-cookie-name--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block url-cookie-name (or (and (memq (aref cl-x 0) cl-struct-url-cookie-tags)) (signal 'wrong-type-argument (list 'url-cookie cl-x))) (aref cl-x 1)) nil] 9 (#$ . 1319)])
(put 'url-cookie-name 'compiler-macro 'url-cookie-name--cmacro)
#@131 Access slot "name" of `(url-cookie (:constructor url-cookie-create) (:copier nil) (:type vector) :named)' struct CL-X.

(fn CL-X)
(defalias 'url-cookie-name #[257 "\211\301H>\204\302\303\304D\"\210\211\305H\207" [cl-struct-url-cookie-tags 0 signal wrong-type-argument url-cookie 1] 5 (#$ . 1739)])
(byte-code "\300\301\302\303#\300\207" [function-put url-cookie-name side-effect-free t] 4)
#@73 compiler-macro for inlining `url-cookie-value'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'url-cookie-value--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block url-cookie-value (or (and (memq (aref cl-x 0) cl-struct-url-cookie-tags)) (signal 'wrong-type-argument (list 'url-cookie cl-x))) (aref cl-x 2)) nil] 9 (#$ . 2139)])
(put 'url-cookie-value 'compiler-macro 'url-cookie-value--cmacro)
#@132 Access slot "value" of `(url-cookie (:constructor url-cookie-create) (:copier nil) (:type vector) :named)' struct CL-X.

(fn CL-X)
(defalias 'url-cookie-value #[257 "\211\301H>\204\302\303\304D\"\210\211\305H\207" [cl-struct-url-cookie-tags 0 signal wrong-type-argument url-cookie 2] 5 (#$ . 2564)])
(byte-code "\300\301\302\303#\300\207" [function-put url-cookie-value side-effect-free t] 4)
#@75 compiler-macro for inlining `url-cookie-expires'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'url-cookie-expires--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block url-cookie-expires (or (and (memq (aref cl-x 0) cl-struct-url-cookie-tags)) (signal 'wrong-type-argument (list 'url-cookie cl-x))) (aref cl-x 3)) nil] 9 (#$ . 2967)])
(put 'url-cookie-expires 'compiler-macro 'url-cookie-expires--cmacro)
#@134 Access slot "expires" of `(url-cookie (:constructor url-cookie-create) (:copier nil) (:type vector) :named)' struct CL-X.

(fn CL-X)
(defalias 'url-cookie-expires #[257 "\211\301H>\204\302\303\304D\"\210\211\305H\207" [cl-struct-url-cookie-tags 0 signal wrong-type-argument url-cookie 3] 5 (#$ . 3402)])
(byte-code "\300\301\302\303#\300\207" [function-put url-cookie-expires side-effect-free t] 4)
#@77 compiler-macro for inlining `url-cookie-localpart'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'url-cookie-localpart--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block url-cookie-localpart (or (and (memq (aref cl-x 0) cl-struct-url-cookie-tags)) (signal 'wrong-type-argument (list 'url-cookie cl-x))) (aref cl-x 4)) nil] 9 (#$ . 3811)])
(put 'url-cookie-localpart 'compiler-macro 'url-cookie-localpart--cmacro)
#@136 Access slot "localpart" of `(url-cookie (:constructor url-cookie-create) (:copier nil) (:type vector) :named)' struct CL-X.

(fn CL-X)
(defalias 'url-cookie-localpart #[257 "\211\301H>\204\302\303\304D\"\210\211\305H\207" [cl-struct-url-cookie-tags 0 signal wrong-type-argument url-cookie 4] 5 (#$ . 4256)])
(byte-code "\300\301\302\303#\300\207" [function-put url-cookie-localpart side-effect-free t] 4)
#@74 compiler-macro for inlining `url-cookie-domain'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'url-cookie-domain--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block url-cookie-domain (or (and (memq (aref cl-x 0) cl-struct-url-cookie-tags)) (signal 'wrong-type-argument (list 'url-cookie cl-x))) (aref cl-x 5)) nil] 9 (#$ . 4671)])
(put 'url-cookie-domain 'compiler-macro 'url-cookie-domain--cmacro)
#@133 Access slot "domain" of `(url-cookie (:constructor url-cookie-create) (:copier nil) (:type vector) :named)' struct CL-X.

(fn CL-X)
(defalias 'url-cookie-domain #[257 "\211\301H>\204\302\303\304D\"\210\211\305H\207" [cl-struct-url-cookie-tags 0 signal wrong-type-argument url-cookie 5] 5 (#$ . 5101)])
(byte-code "\300\301\302\303#\300\207" [function-put url-cookie-domain side-effect-free t] 4)
#@74 compiler-macro for inlining `url-cookie-secure'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'url-cookie-secure--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block url-cookie-secure (or (and (memq (aref cl-x 0) cl-struct-url-cookie-tags)) (signal 'wrong-type-argument (list 'url-cookie cl-x))) (aref cl-x 6)) nil] 9 (#$ . 5507)])
(put 'url-cookie-secure 'compiler-macro 'url-cookie-secure--cmacro)
#@133 Access slot "secure" of `(url-cookie (:constructor url-cookie-create) (:copier nil) (:type vector) :named)' struct CL-X.

(fn CL-X)
(defalias 'url-cookie-secure #[257 "\211\301H>\204\302\303\304D\"\210\211\305H\207" [cl-struct-url-cookie-tags 0 signal wrong-type-argument url-cookie 6] 5 (#$ . 5937)])
(byte-code "\300\301\302\303#\300\207" [function-put url-cookie-secure side-effect-free t] 4)
#@123 compiler-macro for inlining `url-cookie-create'.

(fn CL-WHOLE &cl-quote &key NAME VALUE EXPIRES LOCALPART DOMAIN SECURE)
(defalias 'url-cookie-create--cmacro #[385 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"A@\211\203R\211@\307>\203:\211AA\262\202'\310>A@\203I\311\262\202'\312\313@\"\210\202'\210\314\315\316\311\311&\207" [plist-member :name :value :expires :localpart :domain :secure (:name :value :expires :localpart :domain :secure :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:name :value :expires :localpart :domain :secure)" cl--defsubst-expand (name value expires localpart domain secure) (cl-block url-cookie-create (vector 'url-cookie name value expires localpart domain secure))] 20 (#$ . 6344)])
(put 'url-cookie-create 'compiler-macro 'url-cookie-create--cmacro)
#@101 Constructor for objects of type `url-cookie'.

(fn &key NAME VALUE EXPIRES LOCALPART DOMAIN SECURE)
(defalias 'url-cookie-create #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"A@\211\203R\211@\307>\203:\211AA\262\202'\310>A@\203I\311\262\202'\312\313@\"\210\202'\210\314\315&\207" [plist-member :name :value :expires :localpart :domain :secure (:name :value :expires :localpart :domain :secure :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:name :value :expires :localpart :domain :secure)" vector url-cookie] 15 (#$ . 7227)])
(byte-code "\300\301\302\303#\304\305\306\211\307\303\310\311\305\306&	\207" [function-put url-cookie-create side-effect-free t cl-struct-define url-cookie nil vector ((cl-tag-slot) (name) (value) (expires) (localpart) (domain) (secure)) cl-struct-url-cookie-tags] 11)
#@27 Where cookies are stored.
(defvar url-cookie-storage nil (#$ . 8126))
#@34 Where secure cookies are stored.
(defvar url-cookie-secure-storage nil (#$ . 8202))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\310\312&	\210\300\313\302\303\314DD\315\306\316\310\312&\210\300\317\302\303\320DD\321\306\316\310\312&\207" [custom-declare-variable url-cookie-file funcall function #[0 "\300\207" [nil] 1] "File where cookies are stored on disk." :type (choice (const :tag "Default" :value nil) file) :group url-file url-cookie url-cookie-confirmation #[0 "\300\207" [nil] 1] "If non-nil, confirmation by the user is required to accept HTTP cookies." boolean url-cookie-multiple-line #[0 "\300\207" [nil] 1] "If nil, HTTP requests put all cookies for the server on one line.\nSome web servers, such as http://www.hotmail.com/, only accept cookies\nwhen they are on one line.  This is broken behavior, but just try\ntelling Microsoft that."] 10)
#@69 Whether the cookies list has changed since the last save operation.
(defvar url-cookies-changed-since-last-save nil (#$ . 9079))
#@62 Load FNAME, default `url-cookie-file'.

(fn &optional FNAME)
(defalias 'url-cookie-parse-file #[256 "\301\206\302\211#\207" [url-cookie-file load t] 5 (#$ . 9214)])
#@25 

(fn &optional SECURE)
(defalias 'url-cookie-clean-up #[256 "\211\203\301\202	\302\303\211J\211\203o\211@\303\262\211A\211\203Z\211@\304!\203S\211G\305Y\203S\211\306H>\203S\307!\204S\211\306H>\204H\310\311\312D\"\210\211\313H\203S\211B\262A\266\202\202\210\203h\211\241\210\211B\262A\266\202\202
\210L\207" [cl-struct-url-cookie-tags url-cookie-secure-storage url-cookie-storage nil vectorp 7 0 url-cookie-expired-p signal wrong-type-argument url-cookie 3] 12 (#$ . 9389)])
#@24 

(fn &optional FNAME)
(defalias 'url-cookie-write-file #[256 "\205r\211\204
\306	!\262\3071\310!\210\3110\202\210\202!\203&\312\313\"\207\314 \210\314\315!\210\316\317!r\211q\210\320\321\322\323\324!\325\"\326$\216\327\330\331\261\210\311\211\332\fp\"\210\333c\210\332
p\"\210*\334c\210\335\336\337\340\261\210\341\342!\210\343\"\344!\210*\210\311\211\207" [url-cookies-changed-since-last-save url-cookie-file print-level print-length url-cookie-storage url-cookie-secure-storage expand-file-name (error) url-make-private-file nil message "Error accessing cookie file `%s'" url-cookie-clean-up t generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205	\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 ";; Emacs-W3 HTTP cookies file\n" ";; Automatically generated file!!! DO NOT EDIT!!!\n\n" "(setq url-cookie-storage\n '" pp ")\n(setq url-cookie-secure-storage\n '" ")\n" "\f\n;; Local Variables:\n" ";; version-control: never\n" ";; no-byte-compile: t\n" ";; End:\n" make-local-variable version-control never write-file] 8 (#$ . 9902)])
#@76 Store a cookie.

(fn NAME VALUE &optional EXPIRES DOMAIN LOCALPART SECURE)
(defalias 'url-cookie-store #[1538 "G\303V\205\346\211\203\202	\304\211\305\"\211\262\203\257\211A\211\262\211\203\220\211@\303H\n>\2049\306\307\310D\"\210\311H\232\203\211\n\303H\n>\204Q\306\307\310D\"\210\312H\232\203\211\211\303H\n>\204g\306\307\310D\"\210\211\211\313I\266\211\303H\n>\204~\306\307\310D\"\210\211\211\314\fI\266\315\262A\266\202\202\"\262?\205\344\211\316\310\n\f&AB\241\202\344\316\310\n\n\n	\n&\262\203\321DAB\241\202\344\203\336DC\211\202\344DC\211\266\203\207" [url-cookie-secure-storage url-cookie-storage cl-struct-url-cookie-tags 0 nil assoc signal wrong-type-argument url-cookie 4 1 3 2 t vector] 18 (#$ . 10983)])
#@51 Return non-nil if COOKIE is expired.

(fn COOKIE)
(defalias 'url-cookie-expired-p #[257 "\211\301H>\204\302\303\304D\"\210\211\305H\211G\301V\205)\3061'\307\310!\311\"0\202)\210\311\207" [cl-struct-url-cookie-tags 0 signal wrong-type-argument url-cookie 3 (error) time-less-p date-to-time nil] 5 (#$ . 11788)])
#@96 Retrieve all cookies for a specified HOST and LOCALPART.

(fn HOST &optional LOCALPART SECURE)
(defalias 'url-cookie-retrieve #[769 "\211\203\304	\"\202\f	\305\306\211\211\211\203\226\211@\211A\262\211@\203\217\307\310\311@\312H\313=\2036@\314\306O\2028@!\315Q\"\203\217\211\203\216\211@\211\312H>\204W\316\317\320D\"\210\211\321H\211\262;\203t\n;\203t\307\322\311!P\f\"\202x\n\232\203\207\323!\204\207\211B\262A\266\202\202B\210A\266\202\202\210)\207" [url-cookie-secure-storage url-cookie-storage case-fold-search cl-struct-url-cookie-tags append t nil string-match "^.*" regexp-quote 0 46 1 "$" signal wrong-type-argument url-cookie 4 "^" url-cookie-expired-p] 16 (#$ . 12113)])
#@30 

(fn HOST LOCALPART SECURE)
(defalias 'url-cookie-generate-header-lines #[771 "\302#\303\211\205\304\305\"\262\211\203p\211@\306\307\310H>\204)\311\312\313D\"\210\314H\310H>\204<\311\312\313D\"\210\315H#\262	\203Y\316\317GG\320#W\203Y\321Q\202g\203d\322Q\202g\323P\262A\266\202\202\210\203{\324P\202|\325\207" [cl-struct-url-cookie-tags url-cookie-multiple-line url-cookie-retrieve nil sort #[514 "\301H>\204\302\303\304D\"\210\305HG\301H>\204\"\302\303\304D\"\210\305HGV\207" [cl-struct-url-cookie-tags 0 signal wrong-type-argument url-cookie 4] 7 "\n\n(fn X Y)"] format "%s=%s" 0 signal wrong-type-argument url-cookie 1 2 80 + 4 "
\nCookie: " "; " "Cookie: " "
\n" ""] 15 (#$ . 12846)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\315\310\311&\207" [custom-declare-variable url-cookie-trusted-urls funcall function #[0 "\300\207" [nil] 1] "A list of regular expressions matching URLs to always accept cookies from." :type (repeat regexp) :group url-cookie url-cookie-untrusted-urls #[0 "\300\207" [nil] 1] "A list of regular expressions matching URLs to never accept cookies from." (repeat regexp)] 8)
#@20 

(fn HOST DOMAIN)
(defalias 'url-cookie-host-can-set-p #[514 "\230\203\300\207\211G\301U\203\302\207\211\301H\303=\203\211\304\302O\262\305!\205*\306\307#\207" [t 0 nil 46 1 url-domsuf-cookie-allowed-p string-suffix-p ignore-case] 6 (#$ . 14059)])
#@12 

(fn STR)
(defalias 'url-cookie-handle-set-cookie #[257 "\306\307\306\"\237\306\310\311\306#\205\306\310\312\306#\243\206-\313\n!>\204*\314\315\316\nD\"\210\n\317H\320\306!\f
\310\321\306#\243\310\322\306#\243\206W\323\313\n!>\204S\314\315\316\nD\"\210\n\324H!\325\203s\326\327\"\203s\330\331\332\325\333!\"\306#\262\202|\310\334\n\306#\243\262:\203\235\326@\"\203\224\335\225\335\224Z\262\202|\211A\262\210\202|:\203\276\326@\"\203\265\335\225\335\224Z\262\202\235\211A\262\210\202\235\203\324\203\324V\203\320\336\202\321\337\325L\210\203\334\325\202\326;\340=\204\360;<\203\364\341;>\203\364\325\202\326<\203\221\204\221\342 \343\335\344\345\346!\347\"\350$\216=r\351\352!q\210p\353 \210=\325\211>?\306\211@\306AB\354 \210\355\356!\210+\211C\357\360\361@@@A#!\210A\211\203\\\211@\357\360\362@A#!\210A\266\202\202E\210\363!\210)\266D\360\364\313\n!>\204w\314\315\316\nD\"\210\n\317H\"!?\365\352!\203\207\366\352!\210)\262\203\221\325\202\326\367\313\n!>\204\241\314\315\316\nD\"\210\n\317H\"\203\277\370	@@\n@A\n
&\202\326\371\372\313\n!>\204\320\314\315\316\nD\"\210\n\317H	#)\207" [url-cookies-changed-since-last-save case-fold-search url-current-object cl-struct-url-tags url-cookie-trusted-urls url-cookie-untrusted-urls t url-parse-args assoc-string "secure" "domain" type-of signal wrong-type-argument url 4 url-view-url "max-age" "path" file-name-directory 6 nil string-match "\\`-?[0-9]+\\'" format-time-string "%a %b %d %H:%M:%S %Y GMT" time-add read "expires" 0 untrusted trusted paranoid cookies current-window-configuration make-byte-code "\301\300!\207" vconcat vector [set-window-configuration] 2 get-buffer-create "*Cookie Warning*" kill-all-local-variables erase-buffer run-hooks temp-buffer-setup-hook princ format "%s=\"%s\"\n" "  %s=\"%s\"\n" internal-temp-output-buffer-show "Allow %s to set these cookies? " get-buffer kill-buffer url-cookie-host-can-set-p url-cookie-store url-lazy-message "%s tried to set a cookie for domain %s - rejected." url-privacy-level url-cookie-confirmation default-directory buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only standard-output url-confirmation-func] 21 (#$ . 14327)])
(defvar url-cookie-timer nil)
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313&	\207" [custom-declare-variable url-cookie-save-interval funcall function #[0 "\300\207" [3600] 1] "The number of seconds between automatic saves of cookies.\nDefault is 1 hour.  Note that if you change this variable outside of\nthe `customize' interface after `url-do-setup' has been run, you need\nto run the `url-cookie-setup-save-timer' function manually." :set #[514 "\301\"\210\302\300!\205\205\303 \207" [url-setup-done set-default boundp url-cookie-setup-save-timer] 5 "\n\n(fn VAR VAL)"] :type integer :group url-cookie] 10)
#@31 Reset the cookie saver timer.
(defalias 'url-cookie-setup-save-timer #[0 "\3021\303!0\202\210\202\210\304	\205\305	\211\306#\211\207" [url-cookie-timer url-cookie-save-interval (error) cancel-timer nil run-at-time url-cookie-write-file] 4 (#$ . 17266) nil])
#@220 Delete all cookies from the cookie store where the domain matches REGEXP.
If REGEXP is nil, all cookies are deleted.  If KEEP is non-nil,
instead delete all cookies that do not match REGEXP.

(fn &optional REGEXP KEEP)
(defalias 'url-cookie-delete-cookies #[512 "\301\211\203N\211@\211J\211\211\203A\211@\204\"\2034\302@\"\2044\203:\203:\302@\"\204:\303\"\262A\266\202\202\n\210L\266A\266\202\202\210\304\305 \207" [url-cookies-changed-since-last-save (url-cookie-secure-storage url-cookie-storage) string-match delq t url-cookie-write-file] 10 (#$ . 17542)])
#@135 Display a buffer listing the current URL cookies, if there are any.
Use \<url-cookie-mode-map>\[url-cookie-delete] to remove cookies.
(defalias 'url-cookie-list #[0 "\204\f	\204\f\305\306!\210\307\310!\210\311\312\313\314	\"!\315\"\316\317\211\211\211\320 \210\321 \210\211\203>\211@@G]\262A\266\202\202)\210\322\323\"\262\324\322\325\326\327$P\211\203\307\211@\211@\262\312\313A!\330\"\211\203\277\211@`\262\211\316H\f>\204y\331\332\333D\"\210\211\334H\262G\335V\203\215\316\335O\262\322	\316H\f>\204\244\331\332\333D\"\210\336H$\337\261\210\340\262\341\211T\333$\210A\266\202\202a\210A\266\202\202P\210eb)\207" [url-cookie-secure-storage url-cookie-storage inhibit-read-only header-line-format cl-struct-url-cookie-tags error "No cookies are defined" pop-to-buffer "*url cookies*" t sort copy-sequence append #[514 "@@\231\207" [] 4 "\n\n(fn E1 E2)"] 0 nil erase-buffer url-cookie-mode format "%%-%ds %%-20s %%s" " " "Domain" "Name" "Value" #[514 "\301H>\204\302\303\304D\"\210\305H\301H>\204!\302\303\304D\"\210\305H\231\207" [cl-struct-url-cookie-tags 0 signal wrong-type-argument url-cookie 1] 7 "\n\n(fn C1 C2)"] signal wrong-type-argument url-cookie 1 20 2 "\n" "" put-text-property] 19 (#$ . 18141) nil])
#@40 Delete the cookie on the current line.
(defalias 'url-cookie-delete #[0 "\303\304 \305\"\306\307\204\310\311!\210\312H	>\204 \313\314\305D\"\210\315H\203*\316\202+\317\262\211J\320\312H	>\204@\313\314\305D\"\210\321H\"\322\"\262\211AG\312U\203Y\322\"\262L\266\306\323 \210\304 \324y\210`|)\207" [inhibit-read-only cl-struct-url-cookie-tags url-cookies-changed-since-last-save get-text-property line-beginning-position url-cookie t nil error "No cookie on the current line" 0 signal wrong-type-argument 6 url-cookie-secure-storage url-cookie-storage assoc 5 delq url-cookie-write-file 1] 9 (#$ . 19427) nil])
(defvar url-cookie-mode-map (byte-code "\300 \301\302\303#\210\301\304\303#\210\211\207" [make-sparse-keymap define-key [delete] url-cookie-delete [(control k)]] 5))
(defvar url-cookie-mode-hook nil)
(byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [url-cookie-mode-hook variable-documentation put "Hook run after entering URL Cookie mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp url-cookie-mode-map definition-name url-cookie-mode] 4)
(defvar url-cookie-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204\303\307\310\311#\210\312\313 !\210\307\302N\204-\303\307\302\304\314!#\210\306\300!\204B\303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P\303\300\302\304\320!#\210\303\311\321\322#\207" [url-cookie-mode-abbrev-table url-cookie-mode-map variable-documentation put purecopy "Keymap for `url-cookie-mode'." boundp url-cookie-mode-syntax-table definition-name url-cookie-mode (lambda (#1=#:def-tmp-var) (defvar url-cookie-mode-syntax-table #1#)) make-syntax-table "Syntax table for `url-cookie-mode'." (lambda (#1#) (defvar url-cookie-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `url-cookie-mode'." derived-mode-parent special-mode] 5)
#@228 Mode for listing cookies.

\{url-cookie-mode-map}

In addition to any hooks its parent mode `special-mode' might have run,
this mode runs the hook `url-cookie-mode-hook', as the final or penultimate step
during initialization.
(defalias 'url-cookie-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203\314\311\313\310\313N#\210\315!\204'\316\317 \"\210\320\f!\211\2035\211\321 =\203;\322\f\323 \"\210\210\324
\325\"\204R
=\204R\326
\325C#\210\327!\210\330\f!\210
\331 \210\307\211)\332\333!\207" [delay-mode-hooks major-mode mode-name url-cookie-mode-map url-cookie-mode-syntax-table url-cookie-mode-abbrev-table make-local-variable t special-mode url-cookie-mode "URL Cookie" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table buffer-disable-undo run-mode-hooks url-cookie-mode-hook local-abbrev-table buffer-read-only truncate-lines] 6 (#$ . 21440) nil])
(provide 'url-cookie)