From 7e960384fa89c02c2fc2be1f61fe18645f8a13fe Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Sat, 13 Apr 2002 11:13:33 +0000 Subject: added message catalog support --- chess-network.el | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) (limited to 'chess-network.el') diff --git a/chess-network.el b/chess-network.el index b4456d8..f44d4b0 100644 --- a/chess-network.el +++ b/chess-network.el @@ -69,13 +69,18 @@ (lambda () (funcall chess-engine-response-handler 'retract)))))) +(chess-message-catalog 'english + '((network-starting . "Starting network client/server...") + (network-waiting . "Now waiting for your opponent to connect...") + (network-connected ."You have connected; pass now or make your move."))) + (defun chess-network-handler (event &rest args) "Initialize the network chess engine." (cond ((eq event 'initialize) (let ((which (read-char "Are you the c)lient or s)erver? ")) proc) - (message "Starting network client/server...") + (chess-message 'network-starting) (setq proc (if (eq which ?s) (start-process "*chess-network*" (current-buffer) "/usr/bin/nc" @@ -84,9 +89,9 @@ (read-string "Host: ") (read-string "Port: ")))) (if (eq which ?s) - (message "Now waiting for your opponent to connect...") + (chess-message 'network-waiting) (chess-network-handler 'match) - (message "You have connected; pass now or make your move.")) + (chess-message 'network-connected)) proc)) ((eq event 'shutdown) -- cgit v1.2.3