diff options
| author | John Wiegley <johnw@newartisans.com> | 2002-04-09 09:24:43 +0000 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2002-04-09 09:24:43 +0000 |
| commit | 456d3cdaf4559b55f424fac8f5742473ac79224b (patch) | |
| tree | 8fbb2cb1c1c6714e867ef626b21af44a40be102e | |
| parent | a38688d2c10528e1fcafd7ce10ec395ab7ac3586 (diff) | |
*** no comment ***
| -rw-r--r-- | chess-engine.el | 3 | ||||
| -rw-r--r-- | chess-irc.el | 2 |
2 files changed, 3 insertions, 2 deletions
diff --git a/chess-engine.el b/chess-engine.el index 5c556aa..6c5df34 100644 --- a/chess-engine.el +++ b/chess-engine.el @@ -77,7 +77,8 @@ (message "Your opponent has passed the first move to you")) ((eq event 'connect) - (message "Your opponent, %s, is now ready to play" (car args))) + (message "Your opponent, %s, is now ready to play" (car args)) + (chess-engine-send nil "name %s\n" (user-full-name))) ((eq event 'quit) (message "Your opponent has quit playing")) diff --git a/chess-irc.el b/chess-irc.el index a6a95ea..033beea 100644 --- a/chess-irc.el +++ b/chess-irc.el @@ -65,7 +65,7 @@ (set-process-filter proc 'chess-irc-filter) (set-process-buffer proc (current-buffer)) (set-marker (process-mark proc) (point)) - (message "Now ready to accept protocol" chess-irc-nick))) + (message "Now waiting for 'name USER' via /msg; or use `M-x chess-irc-engage'"))) (setq chess-irc-process proc)) nil) |