diff options
| author | John Wiegley <johnw@newartisans.com> | 2002-04-09 08:58:35 +0000 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2002-04-09 08:58:35 +0000 |
| commit | 5ff62250fe5b4e2dbda138aa5873f9dd6fb2c585 (patch) | |
| tree | d0ec3ba64ef27da3841cf36308b220b5fd336431 /chess-network.el | |
| parent | e6ab873542ce069aca12c940a346a9eda1c11eed (diff) | |
*** no comment ***
Diffstat (limited to 'chess-network.el')
| -rw-r--r-- | chess-network.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/chess-network.el b/chess-network.el index af22f92..21005eb 100644 --- a/chess-network.el +++ b/chess-network.el @@ -9,12 +9,12 @@ (require 'chess-algebraic) (defvar chess-network-regexp-alist - (list (cons chess-algebraic-regexp + (list (cons (concat chess-algebraic-regexp "$") (function (lambda () (funcall chess-engine-response-handler 'move (match-string 0))))) - (cons "pass" + (cons "pass$" (function (lambda () (funcall chess-engine-response-handler 'pass)))) @@ -28,11 +28,11 @@ (lambda () (funcall chess-engine-response-handler 'setup (match-string 1))))) - (cons "quit" + (cons "quit$" (function (lambda () (funcall chess-engine-response-handler 'quit)))) - (cons "resign" + (cons "resign$" (function (lambda () (funcall chess-engine-response-handler 'resign)))))) |