%PDF- %PDF- Mini Shell
Mini Shell

Direktori : /usr/local/share/emacs/27.2/lisp/url/
Current File : //usr/local/share/emacs/27.2/lisp/url/url-cookie.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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 (progn (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)
#@60 Access slot "name" of `url-cookie' 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 (#$ . 1746)])
(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 (progn (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 (#$ . 2075)])
(put 'url-cookie-value 'compiler-macro 'url-cookie-value--cmacro)
#@61 Access slot "value" of `url-cookie' 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 (#$ . 2507)])
(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 (progn (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 (#$ . 2839)])
(put 'url-cookie-expires 'compiler-macro 'url-cookie-expires--cmacro)
#@63 Access slot "expires" of `url-cookie' 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 (#$ . 3281)])
(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 (progn (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 (#$ . 3619)])
(put 'url-cookie-localpart 'compiler-macro 'url-cookie-localpart--cmacro)
#@65 Access slot "localpart" of `url-cookie' 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 (#$ . 4071)])
(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 (progn (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 (#$ . 4415)])
(put 'url-cookie-domain 'compiler-macro 'url-cookie-domain--cmacro)
#@62 Access slot "domain" of `url-cookie' 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 (#$ . 4852)])
(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 (progn (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 (#$ . 5187)])
(put 'url-cookie-secure 'compiler-macro 'url-cookie-secure--cmacro)
#@62 Access slot "secure" of `url-cookie' 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 (#$ . 5624)])
(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 (#$ . 5960)])
(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 (#$ . 6843)])
(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 (#$ . 7742))
#@34 Where secure cookies are stored.
(defvar url-cookie-secure-storage nil (#$ . 7818))
(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 (#$ . 8695))
#@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 (#$ . 8830)])
#@222 Load cookies from FILENAME in Netscape/Mozilla format.
When LONG-SESSION is non-nil, session cookies (expiring at t=0
i.e. 1970-1-1) are loaded as expiring one year from now instead.

(fn FILENAME &optional LONG-SESSION)
(defalias 'url-cookie-parse-file-netscape #[513 "\302\303\304!r\211q\210\305\302\306\307\310!\311\"\312$\216\313!\210eb\210\314\315\316!)\262\204/\317\320\321\"!\210m\204\244\322\315\316!)\262\204\236`\212\323\210`){\324\325\"\211G\326U\203\227\211@\3128\3278\330\230\331\332\333\3348!\211\302U\203v\n\203v\335\323\336\"\202w\211\262\"\3378\3408	T\262\n\341			&\266\202\234\342\343\"\210\266\323y\210\202/\302W\203\254\315\342\344#*\262\207" [inhibit-changing-match-data url-cookies-changed-since-last-save 0 generate-new-buffer " *temp*" make-byte-code "\301\300!\205	\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 insert-file-contents-literally "# Netscape HTTP Cookie File\n" t looking-at error format "File %s doesn't look like a netscape cookie file" "^[[:space:]]*#" nil split-string "	" 7 3 "TRUE" format-time-string "%d %b %Y %T [GMT]" string-to-number 4 time-add 31536000 5 6 url-cookie-store message "ignoring malformed cookie line <%s>" "added %d cookies from file %s"] 19 (#$ . 9006) "fLoad Netscape/Mozilla cookie file: "])
#@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 (#$ . 10330)])
#@24 

(fn &optional FNAME)
(defalias 'url-cookie-write-file #[256 "\205v	\205v\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 (#$ . 10844)])
#@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 (#$ . 11934)])
#@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 (#$ . 12739)])
#@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@\315\"\2028@!\316Q\"\203\217\211\203\216\211@\211\312H>\204W\317\320\321D\"\210\211\322H\211\262;\203t\n;\203t\307\323\311!P\f\"\202x\n\232\203\207\324!\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 substring 1 "$" signal wrong-type-argument url-cookie 4 "^" url-cookie-expired-p] 16 (#$ . 13064)])
#@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 (#$ . 13808)])
(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\304\305\"\262\306!\205*\307\310#\207" [t 0 nil 46 substring 1 url-domsuf-cookie-allowed-p string-suffix-p ignore-case] 6 (#$ . 15021)])
#@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\203}\326\327\"\203}\3301v\331\332\333\325\334!\"\306#0\202x\210\325\262\202\206\310\335\n\306#\243\262:\203\247\326@\"\203\236\336\225\336\224Z\262\202\206\211A\262\210\202\206:\203\310\326@\"\203\277\336\225\336\224Z\262\202\247\211A\262\210\202\247\203\337\203\337V\203\334\325\262\202\337\325\262\203\347\325\202\341:\337=\204\373:<\203\377\340:>\203\377\325\202\341;\203\234\204\234\341 \342\336\343\344\345!\346\"\347$\216<r\350\351!q\210p\352 \210<\325\211=>\306\211?\306@A\353 \210\354\355!\210+\211B\356\357\360@@@A#!\210A\211\203g\211@\356\357\361@A#!\210A\266\202\202P\210\362!\210)\266C\357\363\313\n!>\204\202\314\315\316\nD\"\210\n\317H\"!?\364\351!\203\222\365\351!\210)\262\203\234\325\202\341\366\313\n!>\204\254\314\315\316\nD\"\210\n\317H\"\203\312\367	@@\n@A\n
&\202\341\370\371\313\n!>\204\333\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]+\\'" (error) format-time-string "%a %b %d %H:%M:%S %Y GMT" time-add read "expires" 0 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 (#$ . 15297)])
(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 (#$ . 18260) 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 (#$ . 18536)])
(defvar url-cookie--deleted-cookies nil)
#@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\302\303!\210\304\305!\210\306 \210\307 \210eb\207" [url-cookie-secure-storage url-cookie-storage error "No cookies are defined" pop-to-buffer "*url cookies*" url-cookie-mode url-cookie--generate-buffer] 2 (#$ . 19176) nil])
(defalias 'url-cookie--generate-buffer #[0 "\305\306\307\310	\"!\311\"\312\313\211\211\211\314 \210\211\203+\211@@G]\262A\266\202\202\210\315\316\"\262\317\315\320\321\322$P\211\205\265\211@\211@\262\306\307A!\323\"\211\203\255\211@`\262\211\312H\f>\204f\324\325\326D\"\210\211\327H\262G\330V\203{\331\312\330#\262\315	\312H\f>\204\222\324\325\326D\"\210\332H$\333\261\210\334\262\335\211T\326$\210A\266\202\202N\210A\266\202\202=\262)\207" [url-cookie-secure-storage url-cookie-storage inhibit-read-only header-line-format cl-struct-url-cookie-tags t sort copy-sequence append #[514 "@@\231\207" [] 4 "\n\n(fn E1 E2)"] 0 nil erase-buffer 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 substring 2 "\n" "" put-text-property] 19])
#@40 Delete the cookie on the current line.
(defalias 'url-cookie-delete #[0 "\304\305 \306\"\307\310\204\311\312!\210\313H	>\204 \314\315\306D\"\210\316H\203*\317\202+\320\262\211J\321\313H	>\204@\314\315\306D\"\210\322H\"\323\"\262\211AG\313U\203Y\323\"\262L\266\307\324 \210\305 \325y\210`|\210`\326 \210\327 \210\211b\266B\211)\207" [inhibit-read-only cl-struct-url-cookie-tags url-cookies-changed-since-last-save url-cookie--deleted-cookies 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 erase-buffer url-cookie--generate-buffer] 9 (#$ . 20612) nil])
#@28 Undo deletion of a cookie.
(defalias 'url-cookie-undo #[0 "\204\304\305!\210\211A\242\211\306H	>\204\307\310\311D\"\210\211\312H\203&\313\202'\314\211J\315\306H	>\204:\307\310\311D\"\210\316H\"\211\203K\211C\244\210\202h\306H	>\204[\307\310\311D\"\210\316HD\262BL\210\317\320 \210`\317\321 \210\322 \210\211b)\262\207" [url-cookie--deleted-cookies cl-struct-url-cookie-tags url-cookies-changed-since-last-save inhibit-read-only error "No cookie deletions to undo" 0 signal wrong-type-argument url-cookie 6 url-cookie-secure-storage url-cookie-storage assoc 5 t url-cookie-write-file erase-buffer url-cookie--generate-buffer] 8 (#$ . 21365) nil])
(defvar url-cookie-mode-map (byte-code "\300 \301\302\303#\210\301\304\303#\210\301\305\306#\210\211\207" [make-sparse-keymap define-key [delete] url-cookie-delete [(control k)] [(control _)] url-cookie-undo] 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 (#$ . 23467) nil])
(provide 'url-cookie)
Zerion Mini Shell 1.0