;ELC ;;; Compiled by aatharuv@cutter-john.mit.edu on Sun Jan 5 18:41:52 2003 ;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/url-cvs-20030105-src/lisp/url-irc.el ;;; in Emacs version 21.1.1 ;;; with bytecomp version 2.85 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`url-irc.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\207" [require url-vars url-parse] 2) #@34 Default port for IRC connections (defconst url-irc-default-port 6667 (#$ . 724)) #@341 *Function to actually open an IRC connection. Should be a function that takes several argument: 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-zenirc '(#$ . -812) :type '(choice (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 #[(url) "\306H\307\310H\206\311H\205\312\313H\314\"!\315H\316H\317H\320H\2032 \321\320HQ\322\323 \"\203> \316\324O G\313U\203G\324 \n \f %\210-\324\207" [url host port pass user chan 3 string-to-int 4 8 url-scheme-get-property 0 default-port 2 1 5 6 "#" string-match "^/" nil url-irc-function] 6]) (provide 'url-irc)