/
usr
/
share
/
emacs
/
site-lisp
/
libidn
/
/usr/share/emacs/site-lisp/libidn
mkdir
upload
Name
Size
Mode
Actions
idna.el
6464
0644
edit
dl
rm
idna.elc
4700
0644
edit
dl
rm
punycode.el
6266
0644
edit
dl
rm
punycode.elc
4636
0644
edit
dl
rm
Edit:
/usr/share/emacs/site-lisp/libidn/punycode.elc
(4636B)
;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. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301\302\303#\210\304\305\306\307\310\311\312\301&\210\304\313\314\315\310\316\312\301&\210\304\317\320\321\310\322\312\301&\210\304\323\324\325\310\326\312\301&\207" [custom-declare-group punycode nil "Punycode: An ASCII compatible Unicode encoding format." custom-declare-variable punycode-program "idn" "Name of the GNU Libidn \"idn\" application." :type string :group punycode-environment '("CHARSET=UTF-8") "List of environment variable definitions prepended to `process-environment'." (repeat string) punycode-encode-parameters '("--quiet" "--punycode-encode") "Parameters passed to `punycode-program' to invoke punycode encoding mode." (repeat string) punycode-decode-parameters '("--quiet" "--punycode-decode") "Parameters passed to `punycode-program' to invoke punycode decoding mode." (repeat string)] 8) #@58 Internal variable holding process for punycode encoding. (defvar punycode-encode-process nil (#$ . 1243)) #@73 Internal variable holding response data received from punycode process. (defvar punycode-encode-response nil (#$ . 1355)) (defalias 'punycode-encode-response-clear #[nil "\301\211\207" [punycode-encode-response nil] 2]) (defalias 'punycode-encode-response #[nil "\302!\303=\203 \204 \304\305\"\210\202 \207" [punycode-encode-process punycode-encode-response process-status run accept-process-output 1] 3]) (defalias 'punycode-encode-filter #[(process string) " P\211\207" [punycode-encode-response string] 2]) (defalias 'punycode-encode-process #[nil "\203 \305!\306=\203 \207\203\" \3071 \310!0\202! \210\202\" \210\311 \n\"\312\313\314\315 \f%)\211\203C \316\317\"\210\320\321\211#\210\322!\210\207" [punycode-encode-process punycode-environment process-environment punycode-program punycode-encode-parameters process-status run (error) kill-process append apply start-process "punycode" nil set-process-filter punycode-encode-filter set-process-coding-system utf-8 process-kill-without-query] 6]) #@58 Internal variable holding process for punycode encoding. (defvar punycode-decode-process nil (#$ . 2385)) #@73 Internal variable holding response data received from punycode process. (defvar punycode-decode-response nil (#$ . 2497)) (defalias 'punycode-decode-response-clear #[nil "\301\211\207" [punycode-decode-response nil] 2]) (defalias 'punycode-decode-response #[nil "\302!\303=\203 \204 \304\305\"\210\202 \207" [punycode-decode-process punycode-decode-response process-status run accept-process-output 1] 3]) (defalias 'punycode-decode-filter #[(process string) " P\211\207" [punycode-decode-response string] 2]) (defalias 'punycode-decode-process #[nil "\203 \305!\306=\203 \207\203\" \3071 \310!0\202! \210\202\" \210\311 \n\"\312\313\314\315 \f%)\211\203C \316\317\"\210\320\321\211#\210\322!\210\207" [punycode-decode-process punycode-environment process-environment punycode-program punycode-decode-parameters process-status run (error) kill-process append apply start-process "punycode" nil set-process-filter punycode-decode-filter set-process-coding-system utf-8 process-kill-without-query] 6]) #@37 Returns a Punycode encoding of STR. (defalias 'punycode-encode #[(str) "\303 \304\211\204 \305\306!\2026 \307 \210\310 \n\311P\"\210\312 \211\2035 \313\211GS\"\311\230\2035 \313\314GS#\2026 *\207" [string proc str punycode-encode-process nil error "Cannot start idn application" punycode-encode-response-clear process-send-string "\n" punycode-encode-response substring 0] 5 (#$ . 3527)]) #@76 Returns a possibly multibyte string which is the punycode decoding of STR. (defalias 'punycode-decode #[(str) "\303 \304\211\204 \305\306!\2026 \307 \210\310 \n\311P\"\210\312 \211\2035 \313\211GS\"\311\230\2035 \313\314GS#\2026 *\207" [string proc str punycode-decode-process nil error "Cannot start idn application" punycode-decode-response-clear process-send-string "\n" punycode-decode-response substring 0] 5 (#$ . 3930)]) #@36 Kill the punycode related process. (defalias 'punycode-shutdown #[nil "\203 \302!\303=\203 \304!\210 \205 \302 !\303=\205 \304 !\207" [punycode-decode-process punycode-encode-process process-status run kill-process] 2 (#$ . 4372) nil]) (provide 'punycode)
Save
cmd:
run