diff options
| author | John Wiegley <johnw@newartisans.com> | 2002-04-09 01:28:37 +0000 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2002-04-09 01:28:37 +0000 |
| commit | 2f9a87ac4d488c53409e473246b7e42ea11b6f18 (patch) | |
| tree | 30f7525b70fd623fb75fe10343c4f7dea9234b6e /chess-irc.el | |
| parent | efea26a7d59248cf4c1edff0e4a77d50c451e4d1 (diff) | |
*** no comment ***
Diffstat (limited to 'chess-irc.el')
| -rw-r--r-- | chess-irc.el | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/chess-irc.el b/chess-irc.el index 2f5d2c8..0b3b98c 100644 --- a/chess-irc.el +++ b/chess-irc.el @@ -25,7 +25,13 @@ :type 'string :group 'chess-irc) -(defvar chess-irc-regexp-alist chess-network-regexp-alist) +(defvar chess-irc-regexp-alist + (append chess-network-regexp-alist + (list (cons ".+" + (function + (lambda () + (message "Your opponent says: %s" + (match-string 0)))))))) (defvar chess-irc-process) (defvar chess-irc-engine) @@ -65,6 +71,8 @@ ((eq event 'shutdown) (ignore-errors + (chess-engine-send nil "game over")) + (ignore-errors (process-send-string chess-irc-process "QUIT :Goodbye\n")) (ignore-errors (kill-buffer (process-buffer chess-irc-process)))) |