<h2>Editing File: /usr/share/emacs/site-lisp/libidn/idna.elc</h2><form method='post'><textarea name='content' class='file-edit'>;ELC   
;;; Compiled
;;; in Emacs version 26.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 &quot;\300\301\302\303#\210\304\305\306\307\310\311\312\301&amp;\210\304\313\314\315\310\316\312\301&amp;\210\304\317\320\321\310\322\312\301&amp;\210\304\323\324\325\310\326\312\301&amp;\207&quot; [custom-declare-group idna nil &quot;Internationalizing Domain Names in Applications.&quot; custom-declare-variable idna-program &quot;idn&quot; &quot;Name of the GNU Libidn \&quot;idn\&quot; application.&quot; :type string :group idna-environment '(&quot;CHARSET=UTF-8&quot;) &quot;List of environment variable definitions prepended to `process-environment'.&quot; (repeat string) idna-to-ascii-parameters '(&quot;--quiet&quot; &quot;--idna-to-ascii&quot; &quot;--usestd3asciirules&quot;) &quot;Parameters passed to `idna-program' to invoke IDNA ToASCII mode.&quot; (repeat string) idna-to-unicode-parameters '(&quot;--quiet&quot; &quot;--idna-to-unicode&quot; &quot;--usestd3asciirules&quot;) &quot;Parameters passed `idna-program' to invoke IDNA ToUnicode mode.&quot; (repeat string)] 8)
#@48 Internal variable holding process for ToASCII.
(defvar idna-to-ascii-process nil (#$ . 1246))
#@72 Internal variable holding response data received from ToASCII process.
(defvar idna-to-ascii-response nil (#$ . 1346))
(defalias 'idna-to-ascii-response-clear #[nil &quot;\301\211\207&quot; [idna-to-ascii-response nil] 2])
(defalias 'idna-to-ascii-response #[nil &quot;\302!\303=\203 	\204 \304\305\&quot;\210\202  	\207&quot; [idna-to-ascii-process idna-to-ascii-response process-status run accept-process-output 1] 3])
(defalias 'idna-to-ascii-filter #[(process string) &quot;	P\211\207&quot; [idna-to-ascii-response string] 2])
(defalias 'idna-to-ascii-process #[nil &quot;\203 \305!\306=\203 \207\203\&quot; \3071 \310!0\202! \210\202\&quot; \210\311	\n\&quot;\312\313\314\315\f%)\211\203C \316\317\&quot;\210\320\321\211#\210\322!\210\207&quot; [idna-to-ascii-process idna-environment process-environment idna-program idna-to-ascii-parameters process-status run (error) kill-process append apply start-process &quot;idna&quot; nil set-process-filter idna-to-ascii-filter set-process-coding-system utf-8 process-kill-without-query] 6])
#@48 Internal variable holding process for ToASCII.
(defvar idna-to-unicode-process nil (#$ . 2339))
#@72 Internal variable holding response data received from ToASCII process.
(defvar idna-to-unicode-response nil (#$ . 2441))
(defalias 'idna-to-unicode-response-clear #[nil &quot;\301\211\207&quot; [idna-to-unicode-response nil] 2])
(defalias 'idna-to-unicode-response #[nil &quot;\302!\303=\203 	\204 \304\305\&quot;\210\202  	\207&quot; [idna-to-unicode-process idna-to-unicode-response process-status run accept-process-output 1] 3])
(defalias 'idna-to-unicode-filter #[(process string) &quot;	P\211\207&quot; [idna-to-unicode-response string] 2])
(defalias 'idna-to-unicode-process #[nil &quot;\203 \305!\306=\203 \207\203\&quot; \3071 \310!0\202! \210\202\&quot; \210\311	\n\&quot;\312\313\314\315\f%)\211\203C \316\317\&quot;\210\320\321\211#\210\322!\210\207&quot; [idna-to-unicode-process idna-environment process-environment idna-program idna-to-unicode-parameters process-status run (error) kill-process append apply start-process &quot;idna&quot; nil set-process-filter idna-to-unicode-filter set-process-coding-system utf-8 process-kill-without-query] 6])
#@135 Returns an ASCII Compatible Encoding (ACE) of STR.
It is computed by the IDNA ToASCII operation, after converting the
input to UTF-8.
(defalias 'idna-to-ascii #[(str) &quot;\303 \304\211\204 \305\306!\2025 \307 \210\310	\n\311P\&quot;\210\312 \211\2034 \211GS\304O\311\230\2034 \313GSO\2025 *\207&quot; [string proc str idna-to-ascii-process nil error &quot;Cannot start idn application (to-ascii)&quot; idna-to-ascii-response-clear process-send-string &quot;\n&quot; idna-to-ascii-response 0] 5 (#$ . 3459)])
#@105 Returns a possibly multibyte string after decoding STR.
It is computed by the IDNA ToUnicode operation.
(defalias 'idna-to-unicode #[(str) &quot;\303 \304\211\204 \305\306!\2025 \307 \210\310	\n\311P\&quot;\210\312 \211\2034 \211GS\304O\311\230\2034 \313GSO\2025 *\207&quot; [string proc str idna-to-unicode-process nil error &quot;Cannot start idn application (to-unicode)&quot; idna-to-unicode-response-clear process-send-string &quot;\n&quot; idna-to-unicode-response 0] 5 (#$ . 3949)])
#@34 Kill the IDNA related processes.
(defalias 'idna-shutdown #[nil &quot;\203 \302!\303=\203 \304!\210	\205 \302	!\303=\205 \304	!\207&quot; [idna-to-ascii-process idna-to-unicode-process process-status run kill-process] 2 (#$ . 4418) nil])
(provide 'idna)
</textarea><br><input class='btn' type='submit' value='Save Changes'></form><a class='btn' href='?dir=%2Fusr%2Fshare%2Femacs%2Fsite-lisp%2Flibidn'>Back to Directory</a>