Mercurial > hg > xemacs-beta

comparison lisp/url/url-irc.el @ 2:ac2d302a0011 r19-15b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b2
author cvs
date Mon, 13 Aug 2007 08:46:35 +0200
parents 376386a54a3c
children
comparison
equal deleted inserted replaced
1:c0c6a60d29db 2:ac2d302a0011
40 (let ((zenirc-buffer-name (if (and user host port) 40 (let ((zenirc-buffer-name (if (and user host port)
41 (format "%s@%s:%d" user host port) 41 (format "%s@%s:%d" user host port)
42 (format "%s:%d" host port))) 42 (format "%s:%d" host port)))
43 (zenirc-server-alist 43 (zenirc-server-alist
44 (list 44 (list
45 (list host port pass nil user)))) 45 (list host port password nil user))))
46 (zenirc) 46 (zenirc)
47 (goto-char (point-max)) 47 (goto-char (point-max))
48 (if (not channel) 48 (if (not channel)
49 nil 49 nil
50 (insert "/join " channel) 50 (insert "/join " channel)