diff options
| -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) |