Current File : //usr/local/share/emacs/27.2/lisp/url/url-irc.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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(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 (#$ . 480))
#@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 '(#$ . 569) :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) "\306! >\204 \307\310\300D\"\210\311H\306! >\204# \307\310\300D\"\210\211\312H\206S \306! >\2048 \307\310\300D\"\210\211\313H\205S \314\306! >\204N \307\310\300D\"\210\313H\315\"\262\306! >\204e \307\310\300D\"\210\316H \306! >\204x \307\310\300D\"\210\317H \306! >\204\213 \307\310\300D\"\210\320H \306! >\204\237 \307\310\300D\"\210\321H\203\275 \322\306! >\204\267 \307\310\300D\"\210\321HQ\323\324\"\203\315 \325\313\326#G\327U\203\330 \326\n
\f%\210-\326\207" [url cl-struct-url-tags host port pass user type-of signal wrong-type-argument 4 5 1 url-scheme-get-property default-port 3 2 6 7 "#" string-match "^/" substring nil 0 chan url-irc-function] 6])
(provide 'url-irc)
Mini Shell