;ELC ;;; Compiled ;;; in Emacs version 29.4 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\305\306\307\310\311\312\311\313\314\315& \207" [require url-util url-parse url-domsuf generate-lisp-file 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 (#$ . 349)]) (byte-code "\300\301\302\303#\300\207" [define-symbol-prop url-cookie-p compiler-macro url-cookie-p--cmacro] 4)#@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 (#$ . 770)]) (byte-code "\300\301\302\303#\300\301\304\305#\306\307\310\301#\300\207" [function-put url-cookie-p side-effect-free error-free pure t define-symbol-prop url-cookie cl-deftype-satisfies] 6)#@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 (#$ . 1120)]) (byte-code "\300\301\302\303#\300\207" [define-symbol-prop url-cookie-name compiler-macro url-cookie-name--cmacro] 4)#@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 (#$ . 1600)]) (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 (#$ . 1928)]) (byte-code "\300\301\302\303#\300\207" [define-symbol-prop url-cookie-value compiler-macro url-cookie-value--cmacro] 4)#@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 (#$ . 2413)]) (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 (#$ . 2744)]) (byte-code "\300\301\302\303#\300\207" [define-symbol-prop url-cookie-expires compiler-macro url-cookie-expires--cmacro] 4)#@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 (#$ . 3239)]) (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 (#$ . 3576)]) (byte-code "\300\301\302\303#\300\207" [define-symbol-prop url-cookie-localpart compiler-macro url-cookie-localpart--cmacro] 4)#@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 (#$ . 4081)]) (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 (#$ . 4424)]) (byte-code "\300\301\302\303#\300\207" [define-symbol-prop url-cookie-domain compiler-macro url-cookie-domain--cmacro] 4)#@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 (#$ . 4914)]) (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 (#$ . 5248)]) (byte-code "\300\301\302\303#\300\207" [define-symbol-prop url-cookie-secure compiler-macro url-cookie-secure--cmacro] 4)#@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 (#$ . 5738)]) (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\203]\211@\307>\203E\211A\204=\310\311@\"\210\211AA\262\202'\312>A@\203T\313\262\202'\310\314@\"\210\202'\210\315\316\317\313 \313      & \207" [plist-member :name :value :expires :localpart :domain :secure (:name :value :expires :localpart :domain :secure :allow-other-keys) error "Missing argument for %s" :allow-other-keys nil "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 (#$ . 6073)]) (byte-code "\300\301\302\303#\300\207" [define-symbol-prop url-cookie-create compiler-macro url-cookie-create--cmacro] 4)#@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\203]\211@\307>\203E\211A\204=\310\311@\"\210\211AA\262\202'\312>A@\203T\313\262\202'\310\314@\"\210\202'\210\315\316&\207" [plist-member :name :value :expires :localpart :domain :secure (:name :value :expires :localpart :domain :secure :allow-other-keys) error "Missing argument for %s" :allow-other-keys nil "Keyword argument %s not one of (:name :value :expires :localpart :domain :secure)" vector url-cookie] 15 (#$ . 7062)]) (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 (#$ . 8013))#@34 Where secure cookies are stored. (defvar url-cookie-secure-storage nil (#$ . 8088)) (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 #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 #1#] "If non-nil, confirmation by the user is required to accept HTTP cookies." boolean url-cookie-multiple-line #[0 "\300\207" [nil] 1 #1#] "If nil, HTTP requests put all cookies for the server on one line.\nSome web servers, such as https://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 (#$ . 8979))#@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 (#$ . 9113)])#@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 "\301\302\303\304\"r\211q\210\305\306\"\216\307!\210eb\210\310\311\304\"\262\204'\312\313\314\"!\210m\204\231\315\311\304\"\262\204\223`\212\316\210`){\317\320\"\211G\321U\203\215\211@\3228\3238\324\230\325\326\327\3308!\211\301U\203l\n\203l\331\316\332\"\202m\211\262\"\3338\3348 T\262\n\335   &\266 \202\223\336\337\"\266\316y\210\202'\301W\203\241\304\336\340#*\207" [url-cookies-changed-since-last-save 0 generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] insert-file-contents-literally "# Netscape HTTP Cookie File\n" looking-at error format "File %s doesn't look like a netscape cookie file" "^[[:space:]]*#" nil split-string " " 7 2 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 (#$ . 9288) "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 (#$ . 10548)])#@24 (fn &optional FNAME) (defalias 'url-cookie-write-file #[256 "\205q \205q\211\204\306 !\262\3071\310!\210\3110\202\"\210\202%\203*\312\313\"\207\314 \210\314\315!\210\316\317\315\"r\211q\210\320\321\"\216\322\323\324\261\210\311\211\325\fp\"\210\326c\210\325 p\"*\210\327c\210\330\331\315\332\315%\210\333\334!\210\335\336!*\266\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-closure #[0 "\301\300!\205 \302\300!\207" [V0 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" generate-lisp-file-trailer :inhibit-provide :autoloads make-local-variable version-control never write-file] 8 (#$ . 11061)])#@76 Store a cookie. (fn NAME VALUE &optional EXPIRES DOMAIN LOCALPART SECURE) (defalias 'url-cookie-store #[1538 "G\303V\205\334\211\203\202 \304\211\305\"\211\262\203\251\211A\211\262\211\203\214\211@\303H\n>\2049\306\307\310D\"\210\311H\232\203\205\n\303H\n>\204Q\306\307\310D\"\210\312H\232\203\205\211\303H\n>\204g\306\307\310D\"\210\211\313\nI\210\211\303H\n>\204|\306\307\310D\"\210\211\314 I\210\315\262A\266\202\202\"\262?\205\332\211\316\310   \n\f &AB\241\207\316\310\n\n\n  \n&\262\203\311DAB\241\207\203\324DC\211\207DC\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 (#$ . 12078)])#@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\207\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 (#$ . 12857)])#@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 (#$ . 13179)])#@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\316GG\\\317\\W\203Y\320Q\202g\203d\321Q\202g\322P\262A\266\202\202\210\203y\323P\207\324\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 (#$ . 13911)]) (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 #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 #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 (#$ . 15128)])#@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\245\326@\"\203\236\336\225\336\224Z\262\202\206A\262\202\206:\203\304\326@\"\203\275\336\225\336\224Z\262\202\245A\262\202\245\203\333\203\333V\203\330\325\262\202\333\325\262\203\343\325\202\3256\337=\204\3676<\203\373\3406>\203\373\325\202\3257\203\220\204\220\341 \342\343\"\2168r\344\345!q\210p\346 \2108\325\2119:\306\211;\306<=\347 \210\350\351!+\210\211>\352\353\354@@@A#!\210 A\211\203\\\211@\352\353\355@A#!\210A\266\202\202E\210\356!)\266?\353\357\313\n! >\204v\314\315\316\nD\"\210\n\317H\"!?\360\345!\203\206\361\345!\210)\262\203\220\325\202\325\362\313\n! >\204\240\314\315\316\nD\"\210\n\317H\"\203\276\363 @@\n@A\n &\202\325\364\365\313\n! >\204\317\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-closure #[0 "\301\300!\207" [V0 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 (#$ . 15395)]) (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 natnum :group url-cookie] 10)#@31 Reset the cookie saver timer. (defalias 'url-cookie-setup-save-timer #[0 "\3021\f\303!0\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 (#$ . 18306) 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 (#$ . 18576)]) (defvar url-cookie--deleted-cookies nil)#@135 Display a buffer listing the current URL cookies, if there are any. Use \\[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 (#$ . 19215) 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\264\211@\211@\262\306\307A!\323\"\211\203\254\211@`\262\211\312H\f>\204f\324\325\326D\"\210\211\327H\262G\330V\203z\312\330O\262\315 \312H\f>\204\221\324\325\326D\"\210\331H$\332\261\210\333\262\334\211T\326$\210A\266\202\202N\210A\266\202\202=)\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 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\266 B\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 (#$ . 20631) 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)\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 (#$ . 21383) nil]) (defvar url-cookie-mode-map (define-keymap "" 'url-cookie-delete "C-k" 'url-cookie-delete "C-_" 'url-cookie-undo)) (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\307\306\307!\203&\313\202(\314 \"\210\307\302N\2048\303\307\302\304\315!#\210\306\300!\204X\303\300\310\311#\210\312\300\306\300!\203P\313\202V\316\300\313\"\210\"\210\300\302N\204f\303\300\302\304\317!#\210\303\311\320\321#\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 defvar-1 nil make-syntax-table "Syntax table for `url-cookie-mode'." define-abbrev-table "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 (#$ . 23328) nil]) (provide 'url-cookie)