%PDF- %PDF-
Mini Shell

Mini Shell

Direktori : /usr/local/share/emacs/27.2/lisp/url/
Upload File :
Create Path :
Current File : //usr/local/share/emacs/27.2/lisp/url/url-domsuf.elc

;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(defvar url-domsuf-domains nil)
(defalias 'url-domsuf-parse-file #[nil "\306\307!rq\210\310\216\311 \312\216	\204\313 \210\314\315\316\n\"\211\317P\320\f!\203*\f\206+*!\210*\321\211\211m\204\226\322\323!\204\220g\324=\204L\321\202Q\325\326u\210`\327 {\330\331\"\203w\332\333\"\211\334\335\"GTBB\202\220
\203\207\325BB\202\220\321BB\326y\210\2027\237\211 .\207" [#1=#:temp-buffer #2=#:already-installed data-directory suffixfile compressed-file exception generate-new-buffer " *temp*" #[nil "\301!\205	\302!\207" [#1# buffer-name kill-buffer] 2] jka-compr-installed-p #[nil "?\205\301 \207" [#2# jka-compr-uninstall] 1] jka-compr-install insert-file-contents expand-file-name "publicsuffix.txt" ".gz" file-readable-p nil looking-at "[/\n	 ]" 33 t 1 line-end-position string-match "\\`\\*\\." substring 2 split-string "[.]" domain domains url-domsuf-domains] 5])
(defalias 'url-domsuf-cookie-allowed-p #[(domain) "\204\306 \210\307\310\n\311\"\211G\312\313A\314#\315\211\315\211\203x@\211@A\211\204F\n\230\203F\315\202o\307=\203Y\n\230\203Y\307\202o\247\203o\fU\203o
\230\203o\315A\211\204(*	.\207" [url-domsuf-domains allowedp domain domain-bits length upper-domain url-domsuf-parse-file t split-string "[.]" mapconcat identity "." nil entry modifier elem --dolist-tail--] 5])
(provide 'url-domsuf)

Zerion Mini Shell 1.0