%PDF- <> %âãÏÓ endobj 2 0 obj <> endobj 3 0 obj <>/ExtGState<>/ProcSet[/PDF/Text/ImageB/ImageC/ImageI] >>/Annots[ 28 0 R 29 0 R] /MediaBox[ 0 0 595.5 842.25] /Contents 4 0 R/Group<>/Tabs/S>> endobj ºaâÚÎΞ-ÌE1ÍØÄ÷{òò2ÿ ÛÖ^ÔÀá TÎ{¦?§®¥kuµùÕ5sLOšuY>endobj 2 0 obj<>endobj 2 0 obj<>endobj 2 0 obj<>endobj 2 0 obj<> endobj 2 0 obj<>endobj 2 0 obj<>es 3 0 R>> endobj 2 0 obj<> ox[ 0.000000 0.000000 609.600000 935.600000]/Fi endobj 3 0 obj<> endobj 7 1 obj<>/ProcSet[/PDF/Text/ImageB/ImageC/ImageI]>>/Subtype/Form>> stream
;ELC ;;; Compiled ;;; in Emacs version 25.2.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!\207" [require url-vars url-parse] 2) #@35 Default port for IRC connections. (defconst url-irc-default-port 6667 (#$ . 482)) #@340 Function to actually open an IRC connection. The function should take the following arguments: HOST - the hostname of the IRC server to contact PORT - the port number of the IRC server to contact CHANNEL - What channel on the server to visit right away (can be nil) USER - What username to use PASSWORD - What password to use (custom-declare-variable 'url-irc-function ''url-irc-rcirc '(#$ . 571) :type '(choice (const :tag "rcirc" :value url-irc-rcirc) (const :tag "ERC" :value url-irc-erc) (const :tag "ZEN IRC" :value url-irc-zenirc) (function :tag "Other")) :group 'url) (defalias 'url-irc-zenirc #[(host port channel user password) "\203 \203 \n\203 \306\307 \n$\202 \306\310 \n# \n\311\257C\312 \210db\210 \2057 \313 \261\210\314 *\207" [user host port password zenirc-server-alist zenirc-buffer-name format "%s@%s:%d" "%s:%d" nil zenirc "/join " zenirc-send-line channel] 6]) (defalias 'url-irc-rcirc #[(host port channel user password) "\205 \305P\306\n\f\307\211 \205 C&\210 \205! \310 \311\nQ!)\207" [channel chan host port user "#" rcirc-connect nil switch-to-buffer "@"] 7]) (defalias 'url-irc-erc #[(host port channel user password) "\305 \n\f%\207" [host port channel user password erc-handle-irc-url] 6]) (defalias 'url-irc #[(url) "\306H >\204 \307\310\300D\"\210\311H\211\306H >\204$ \307\310\300D\"\210\312H\206T \306H >\2049 \307\310\300D\"\210\313H\205T \314\306H >\204O \307\310\300D\"\210\313H\315\")\306H >\204e \307\310\300D\"\210\316H\306H >\204x \307\310\300D\"\210\317H\306H >\204\214 \307\310\300D\"\210\320H\306H >\204\240 \307\310\300D\"\210\321H\203\276 \322\306H >\204\270 \307\310\300D\"\210\321HQ\323\324\"\203\315 \313\325OG\306U\203\330 \325\n\f %\210-\325\207" [url cl-struct-url-tags host urlobj port pass 0 signal wrong-type-argument 4 5 1 url-scheme-get-property default-port 3 2 6 7 "#" string-match "^/" nil user chan url-irc-function] 7]) (provide 'url-irc)