diff options
| author | John Wiegley <johnw@newartisans.com> | 2002-06-14 23:41:56 +0000 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2002-06-14 23:41:56 +0000 |
| commit | 36f7cba0c4eb6535f170c7b8957e414dd3b91499 (patch) | |
| tree | 006e030a0254726259e80ad700c8088ce307b6b0 /chess-irc.el | |
| parent | 5badda2b5c155f5afbd238c97d5ca93b075e2ac5 (diff) | |
various small bug fixes
Diffstat (limited to 'chess-irc.el')
| -rw-r--r-- | chess-irc.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/chess-irc.el b/chess-irc.el index a7f5abb..d2133d0 100644 --- a/chess-irc.el +++ b/chess-irc.el @@ -67,7 +67,8 @@ proc (open-network-stream "*chess-irc*" (current-buffer) chess-irc-server chess-irc-port)) (chess-message 'irc-logging-in chess-irc-nick) - (when (and proc (eq (process-status proc) 'open)) + (when (and proc (processp proc) + (eq (process-status proc) 'open)) (process-send-string proc (format "USER %s 0 * :%s\n" (user-login-name) chess-full-name)) @@ -96,7 +97,7 @@ (format "PRIVMSG %s :%s\n" chess-irc-opponent (car args))))) (t - (apply 'chess-network-handler event args))))) + (apply 'chess-network-handler game event args))))) ;; This filter translates IRC syntax into basic chess-network protocol (defun chess-irc-filter (proc string) |