Mercurial > hg > xemacs-beta

comparison lisp/w3/url-irc.el @ 124:9b50b4588a93 r20-1b15

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b15
author cvs
date Mon, 13 Aug 2007 09:26:39 +0200
parents 0293115a14e9
children
comparison
equal deleted inserted replaced
123:c77884c6318d 124:9b50b4588a93
1 ;;; url-irc.el --- IRC URL interface 1 ;;; url-irc.el --- IRC URL interface
2 ;; Author: wmperry 2 ;; Author: wmperry
3 ;; Created: 1997/01/10 00:13:05 3 ;; Created: 1997/04/11 14:40:56
4 ;; Version: 1.5 4 ;; Version: 1.6
5 ;; Keywords: comm, data, processes 5 ;; Keywords: comm, data, processes
6 6
7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
8 ;;; Copyright (c) 1996 by William M. Perry (wmperry@cs.indiana.edu) 8 ;;; Copyright (c) 1996 by William M. Perry (wmperry@cs.indiana.edu)
9 ;;; Copyright (c) 1996, 1997 Free Software Foundation, Inc. 9 ;;; Copyright (c) 1996, 1997 Free Software Foundation, Inc.
27 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 27 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
28 28
29 (require 'url-vars) 29 (require 'url-vars)
30 (require 'url-parse) 30 (require 'url-parse)
31 31
32 (defvar url-irc-function 'url-irc-zenirc 32 (defcustom url-irc-function 'url-irc-zenirc
33 "*Function to actually open an IRC connection. 33 "*Function to actually open an IRC connection.
34 Should be a function that takes several argument: 34 Should be a function that takes several argument:
35 HOST - the hostname of the IRC server to contact 35 HOST - the hostname of the IRC server to contact
36 PORT - the port number of the IRC server to contact 36 PORT - the port number of the IRC server to contact
37 CHANNEL - What channel on the server to visit right away (can be nil) 37 CHANNEL - What channel on the server to visit right away (can be nil)
38 USER - What username to use 38 USER - What username to use
39 PASSWORD - What password to use") 39 PASSWORD - What password to use"
40 :type '(choice (const :tag "ZEN IRC" :value 'url-irc-zenirc)
41 (function :tag "Other"))
42 :group 'url)
40 43
41 (defun url-irc-zenirc (host port channel user password) 44 (defun url-irc-zenirc (host port channel user password)
42 (let ((zenirc-buffer-name (if (and user host port) 45 (let ((zenirc-buffer-name (if (and user host port)
43 (format "%s@%s:%d" user host port) 46 (format "%s@%s:%d" user host port)
44 (format "%s:%d" host port))) 47 (format "%s:%d" host port)))