;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\313 I\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\306\211?\306@A\353 \210\354\355!\210+\211B\356\357\360@@@A#!\210 A\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-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\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 (#$ . 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)