summaryrefslogtreecommitdiff
path: root/chess-irc.el
diff options
context:
space:
mode:
authorJohn Wiegley <johnw@newartisans.com>2002-04-10 21:08:12 +0000
committerJohn Wiegley <johnw@newartisans.com>2002-04-10 21:08:12 +0000
commitd50c928242180a7f3e75d9d4deebca1a4dc8141c (patch)
treefb01390359731d1397cb52f927161bcad9cf22b3 /chess-irc.el
parentfa6d9924972f0472c2f05d10d2909e20e8af7b4b (diff)
lots of work, several new event types, better support in chess-engine
for establishing the starting game position
Diffstat (limited to 'chess-irc.el')
-rw-r--r--chess-irc.el4
1 files changed, 2 insertions, 2 deletions
diff --git a/chess-irc.el b/chess-irc.el
index dbc9cdf..a66f997 100644
--- a/chess-irc.el
+++ b/chess-irc.el
@@ -60,7 +60,7 @@
(when (and proc (eq (process-status proc) 'open))
(process-send-string proc (format "USER %s 0 * :%s\n"
(user-login-name)
- (user-full-name)))
+ chess-full-name))
(process-send-string proc (format "NICK %s\n" chess-irc-nick))
(set-process-filter proc 'chess-irc-filter)
(set-process-buffer proc (current-buffer))
@@ -89,7 +89,7 @@ NOTE: This function is meant to be called from a display buffer!"
(cdr (assq 'chess-engine-event-handler
(chess-game-hooks (chess-display-game nil))))
(setq chess-irc-opponent nick)
- (chess-engine-send nil (format "name %s\n" (user-full-name)))))
+ (chess-engine-send nil (format "chess match %s\n" chess-full-name))))
;; This filter translates IRC syntax into basic chess-network protocol
(defun chess-irc-filter (proc string)