1 |
;;; erbot.el --- Another robot for ERC. |
;;; erbot.el --- Another robot for ERC. |
2 |
;; Time-stamp: <2005-09-02 15:08:03 deego> |
;; Time-stamp: <2005-10-05 20:30:09 deego> |
3 |
;; Emacs Lisp Archive entry |
;; Emacs Lisp Archive entry |
4 |
;; Filename: erbot.el |
;; Filename: erbot.el |
5 |
;; Package: erbot |
;; Package: erbot |
805 |
;; (setq server erc-server)) |
;; (setq server erc-server)) |
806 |
;; 2002-08-21 T11:22:35-0400 (Wednesday) D. Goel |
;; 2002-08-21 T11:22:35-0400 (Wednesday) D. Goel |
807 |
(setq erc-current-server-my server) |
(setq erc-current-server-my server) |
808 |
|
(if (null port) |
809 |
(if (null port) (setq port (erc-compute-port))) |
(setq port |
810 |
|
(if (boundp 'erc-compute-port) |
811 |
|
erc-compute-port |
812 |
|
erc-port))) |
813 |
(setq nick (or erbot-nick (erc-compute-nick nick))) |
(setq nick (or erbot-nick (erc-compute-nick nick))) |
814 |
(let* ( |
(let* ( |
815 |
(foo 'bar) |
(foo 'bar) |