Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
ange-ftp.elc	126.4 KB	-rw-r--r--
browse-url.elc	54.35 KB	-rw-r--r--
dbus.elc	55.05 KB	-rw-r--r--
dig.elc	6.34 KB	-rw-r--r--
dns.elc	11.52 KB	-rw-r--r--
eudc-bob.elc	8.58 KB	-rw-r--r--
eudc-export.elc	5.97 KB	-rw-r--r--
eudc-hotlist.elc	6.69 KB	-rw-r--r--
eudc-vars.elc	14.68 KB	-rw-r--r--
eudc.elc	33.77 KB	-rw-r--r--
eudcb-bbdb.elc	5.97 KB	-rw-r--r--
eudcb-ldap.elc	5.5 KB	-rw-r--r--
eudcb-mab.elc	2.58 KB	-rw-r--r--
eww.elc	68.31 KB	-rw-r--r--
gnutls.elc	12.62 KB	-rw-r--r--
goto-addr.elc	10 KB	-rw-r--r--
hmac-def.elc	1.87 KB	-rw-r--r--
hmac-md5.elc	2.11 KB	-rw-r--r--
imap.elc	102.11 KB	-rw-r--r--
ldap.elc	16.8 KB	-rw-r--r--
mailcap.elc	27.34 KB	-rw-r--r--
mairix.elc	25.1 KB	-rw-r--r--
net-utils.elc	35.04 KB	-rw-r--r--
netrc.elc	4.95 KB	-rw-r--r--
network-stream.elc	12.02 KB	-rw-r--r--
newst-backend.elc	65.76 KB	-rw-r--r--
newst-plainview.elc	48.96 KB	-rw-r--r--
newst-reader.elc	9.66 KB	-rw-r--r--
newst-ticker.elc	7.82 KB	-rw-r--r--
newst-treeview.elc	76.37 KB	-rw-r--r--
newsticker.elc	769 B	-rw-r--r--
nsm.elc	34.82 KB	-rw-r--r--
ntlm.elc	13.79 KB	-rw-r--r--
pop3.elc	20.1 KB	-rw-r--r--
puny.elc	4.92 KB	-rw-r--r--
quickurl.elc	17.83 KB	-rw-r--r--
rcirc.elc	105.35 KB	-rw-r--r--
rfc2104.elc	1.2 KB	-rw-r--r--
rlogin.elc	10.97 KB	-rw-r--r--
sasl-cram.elc	1003 B	-rw-r--r--
sasl-digest.elc	3.33 KB	-rw-r--r--
sasl-ntlm.elc	1.62 KB	-rw-r--r--
sasl-scram-rfc.elc	3.6 KB	-rw-r--r--
sasl.elc	6.58 KB	-rw-r--r--
secrets.elc	23.55 KB	-rw-r--r--
shr-color.elc	8.82 KB	-rw-r--r--
shr.elc	69.72 KB	-rw-r--r--
sieve-manage.elc	15.31 KB	-rw-r--r--
sieve-mode.elc	6.94 KB	-rw-r--r--
sieve.elc	11.62 KB	-rw-r--r--
snmp-mode.elc	14.51 KB	-rw-r--r--
soap-client.elc	221.75 KB	-rw-r--r--
soap-inspect.elc	20.04 KB	-rw-r--r--
socks.elc	12.5 KB	-rw-r--r--
telnet.elc	9.65 KB	-rw-r--r--
tramp-adb.elc	107.17 KB	-rw-r--r--
tramp-archive.elc	25.39 KB	-rw-r--r--
tramp-cache.elc	23.77 KB	-rw-r--r--
tramp-cmds.elc	18.89 KB	-rw-r--r--
tramp-compat.elc	9.57 KB	-rw-r--r--
tramp-ftp.elc	4.38 KB	-rw-r--r--
tramp-gvfs.elc	107.3 KB	-rw-r--r--
tramp-integration.elc	7.03 KB	-rw-r--r--
tramp-loaddefs.el	60.78 KB	-rw-r--r--
tramp-rclone.elc	39.17 KB	-rw-r--r--
tramp-sh.elc	306.37 KB	-rw-r--r--
tramp-smb.elc	140 KB	-rw-r--r--
tramp-sudoedit.elc	76.86 KB	-rw-r--r--
tramp-uu.elc	1.91 KB	-rw-r--r--
tramp.elc	242.21 KB	-rw-r--r--
trampver.elc	2.15 KB	-rw-r--r--
webjump.elc	9.85 KB	-rw-r--r--
zeroconf.elc	18.4 KB	-rw-r--r--

Code Editor : puny.elc

;ELC���
;;; Compiled
;;; in Emacs version 27.1
;;; with all optimizations.

;;; This file contains utf-8 non-ASCII characters,
;;; and so cannot be loaded into Emacs 22 or earlier.
(and (boundp 'emacs-version)
     (< (aref emacs-version (1- (length emacs-version))) ?A)
     (string-lessp emacs-version "23")
     (error "`%s' was compiled for Emacs 23 or later" #$))

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

(require 'seq)
#@103 Encode DOMAIN according to the IDNA/punycode algorithm.
For instance, "fśf.org" => "xn--ff-2sa.org".
(defalias 'puny-encode-domain #[(domain) "\301\302\"\203	�\207\303\304\305\306\"\307#\207" [domain string-match "\\'[[:ascii:]]+\\'" mapconcat puny-encode-string split-string "[.]" "."] 5 (#$ . 424)])
#@148 Encode STRING according to the IDNA/punycode algorithm.
This is used to encode non-ASCII domain names.
For instance, "bücher" => "xn--bcher-kva".
(defalias 'puny-encode-string #[(string) "\302\303\"\211GGU\203�\202#�\304	\204�\305\202�	\306P\307	G\"Q)\207" [string ascii seq-filter #[(char) "\301W\207" [char 128] 2] "xn--" "" "-" puny-encode-complex] 6 (#$ . 737)])
#@103 Decode DOMAIN according to the IDNA/punycode algorithm.
For instance, "xn--ff-2sa.org" => "fśf.org".
(defalias 'puny-decode-domain #[(domain) "\301\302\303\304\"\305#\207" [domain mapconcat puny-decode-string split-string "[.]" "."] 5 (#$ . 1121)])
#@84 Decode an IDNA/punycode-encoded string.
For instance "xn--bcher-kva" => "bücher".
(defalias 'puny-decode-string #[(string) "\301\302\"\203�\3031�\304\305\306\"!0\207\210\207\207" [string string-match "\\`xn--" (args-out-of-range) puny-decode-string-internal substring 4] 4 (#$ . 1378)])
(defconst puny-initial-n 128)
(defconst puny-initial-bias 72)
(defconst puny-base 36)
(defconst puny-damp 700)
(defconst puny-tmin 1)
(defconst puny-tmax 26)
(defconst puny-skew 28)
(defalias 'puny-encode-digit #[(d) "\301W\203\n�\302\\\207\303\301Z\\\207" [d 26 97 48] 3])
(defalias 'puny-adapt #[(delta num-points first-time) "\203\n�	\n\245\202
�	\306\245\307\211\211\f\245\\	
Z	_\306\245V\2032�	
Z\245
\\\202�
ZT	_	\n\\\245\\*\207" [first-time delta puny-damp k num-points puny-base 2 0 puny-tmin puny-tmax puny-skew] 5])
(defalias 'puny-encode-complex #[(insertion-points string) "\306	\n\307\211\211\211\f

GW\2030\310\307\211T\211GW\203Z�H\211Y\203+�\203S�^\202U�\202+�,\211
Z
T_\\
\310\307T\211GW\203\"H\211W\203\232�T\fU\203z�\307X\203\270�\202\315�\\Y\203\310�\202\315�ZY\203\311\312ZZ\"\\!\fB\fZZ\245\\\211\202\255�*\311!\fB\f\313
T
\nU#\306
T
\202z�+TT\202�\f\237.\207" [puny-initial-n puny-initial-bias insertion-points q ijv m 0 nil -1 puny-encode-digit mod puny-adapt result h bias delta n string #1=#:--cl-vec-- #2=#:--cl-idx-- char #3=#:--cl-var-- #4=#:--cl-vec-- #5=#:--cl-idx-- puny-base k t1 puny-tmin puny-tmax] 9])
(defalias 'puny-decode-digit #[(cp) "\302X\203\f�\303Z\304\\\207\305X\203�\306Z\207\307X\203 �\310Z\207	\207" [cp puny-base 57 48 26 90 65 122 97] 2])
(defalias 'puny-decode-string-internal #[(string) "\306\307!rq\210\310\216	c\210\311\312\313\314#\203�`T\202�`d{\315\211\n\313`d|\210GW\203\330�\316\313\211\317H!T_\\X\203o� \202\204�!\\Y\203�!\202\204�ZY\203\242�Z_\\\202J�\320 T\321Z\f\315U#-
\f\245\\\322\f\"eb\210u\210\323\324
\"c\210T\2020�.\325 +\207" [#1=#:temp-buffer string puny-initial-bias puny-initial-n out n generate-new-buffer " *temp*" #[nil "\301!\205	�\302!\207" [#1# buffer-name kill-buffer] 2] search-backward "-" nil move 0 1 puny-decode-digit buffer-size puny-adapt mod format "%c" buffer-string bias i ic encoded puny-base t1 digit k w old-i puny-tmin puny-tmax] 6])
#@274 Say whether STRING is "highly restrictive" in the Unicode IDNA sense.
See http://www.unicode.org/reports/tr39/#Restriction_Level_Detection
for details.  The main idea is that if you're mixing
scripts (like latin and cyrillic), you may confuse the user by
using homographs.
(defalias 'puny-highly-restrictive-string-p #[(string) "\302\303\304\305\306\"!\"\211G\307U\206�\310\311\312\313\314\"\")\207" [string scripts delq t seq-uniq seq-map #[(char) "\302>\203�\303\207	H\207" [char char-script-table (39 45 46 58 183 1418 1523 1524 3851 8204 8205 8208 8217 8231 12448 12539) t] 2] 1 seq-some identity mapcar #[(list) "\301\302\"\207" [scripts seq-every-p #[(script) "	>\207" [script list] 2]] 3] ((latin han hiragana kana) (latin han bopomofo) (latin han hangul))] 7 (#$ . 3920)])
#@131 Say whether DOMAIN is "highly restrictive" in the Unicode IDNA sense.
See `puny-highly-restrictive-string-p' for further details.
(defalias 'puny-highly-restrictive-domain-p #[(domain) "\301\302\303\304\"\"\207" [domain seq-every-p puny-highly-restrictive-string-p split-string "[.]"] 5 (#$ . 4716)])
(provide 'puny)

${this.title}

Code Editor : puny.elc