Current File : //usr/share/emacs/24.3/lisp/url/url-irc.elc

;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:08:22 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/url/url-irc.el
;;; in Emacs version 24.3.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 (#$ . 626))
#@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 '(#$ . 715) :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\311\300#\210\312H\211\306H	>\204\"\307\310\313\300#\210\314H\206P\306H	>\2046\307\310\315\300#\210\316H\205P\317\306H	>\204K\307\310\315\300#\210\316H\320\")\306H	>\204`\307\310\321\300#\210\322H\306H	>\204r\307\310\323\300#\210\324H\306H	>\204\205\307\310\325\300#\210\326H\306H	>\204\230\307\310\327\300#\210\330H\203\265\331\306H	>\204\257\307\310\327\300#\210\330HQ\332\333\"\203\304\316\334OG\306U\203\317\334\n\f
%\210-\334\207" [url cl-struct-url-tags host urlobj port pass 0 error "%s accessing a non-%s" url-host 4 url-portspec 5 url-type 1 url-scheme-get-property default-port url-password 3 url-user 2 url-filename 6 url-target 7 "#" string-match "^/" nil user chan url-irc-function] 7])
(provide 'url-irc)