Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
url-about.elc	2.51 KB	-rw-r--r--
url-auth.elc	20.29 KB	-rw-r--r--
url-cache.elc	6.7 KB	-rw-r--r--
url-cid.elc	1.24 KB	-rw-r--r--
url-cookie.elc	23.96 KB	-rw-r--r--
url-dav.elc	20.14 KB	-rw-r--r--
url-dired.elc	2.78 KB	-rw-r--r--
url-domsuf.elc	1.78 KB	-rw-r--r--
url-expand.elc	4.04 KB	-rw-r--r--
url-file.elc	7.18 KB	-rw-r--r--
url-ftp.elc	778 B	-rw-r--r--
url-future.elc	9.17 KB	-rw-r--r--
url-gw.elc	6.68 KB	-rw-r--r--
url-handlers.elc	20.17 KB	-rw-r--r--
url-history.elc	5.46 KB	-rw-r--r--
url-http.elc	38.02 KB	-rw-r--r--
url-imap.elc	1.93 KB	-rw-r--r--
url-irc.elc	2.52 KB	-rw-r--r--
url-ldap.elc	6.06 KB	-rw-r--r--
url-mailto.elc	2.94 KB	-rw-r--r--
url-methods.elc	4.1 KB	-rw-r--r--
url-misc.elc	3.27 KB	-rw-r--r--
url-news.elc	7.36 KB	-rw-r--r--
url-nfs.elc	4.23 KB	-rw-r--r--
url-parse.elc	17.39 KB	-rw-r--r--
url-privacy.elc	1.61 KB	-rw-r--r--
url-proxy.elc	1.82 KB	-rw-r--r--
url-queue.elc	14.9 KB	-rw-r--r--
url-tramp.elc	2.97 KB	-rw-r--r--
url-util.elc	17.34 KB	-rw-r--r--
url-vars.elc	14.89 KB	-rw-r--r--
url.elc	9.12 KB	-rw-r--r--

Code Editor : url-cookie.elc

;ELC���
;;; Compiled
;;; in Emacs version 27.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 (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\321�DAB\241\202\344�\203\336�DC\211\202\344�DC\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\337�V\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)

${this.title}

Code Editor : url-cookie.elc