|
Server IP : 111.118.215.189 / Your IP : 18.117.158.174 Web Server : Apache System : Linux md-in-83.webhostbox.net 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 User : a1673wkz ( 2475) PHP Version : 8.2.25 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON Directory (0755) : /usr/share/emacs/24.3/lisp/url/ |
| [ Home ] | [ C0mmand ] | [ Upload File ] |
|---|
;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\334O G\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)