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 | |
| parent | e6ab873542ce069aca12c940a346a9eda1c11eed (diff) | |
*** no comment ***
| -rw-r--r-- | TODO | 9 | ||||
| -rw-r--r-- | chess-engine.el | 2 | ||||
| -rw-r--r-- | chess-network.el | 8 | ||||
| -rw-r--r-- | chess.el | 2 |
4 files changed, 15 insertions, 6 deletions
@@ -1,3 +1,12 @@ +- Feature work remaining: + + annotations + chatting + clocks + bughouse/crazyhouse + analysis/highlight tools + scid interaction + - Allow the user to request a move retraction (ala takeback) - In edit mode, mouse-2 and mouse-3 should provide a drop-down list of diff --git a/chess-engine.el b/chess-engine.el index 43798a2..83416514 100644 --- a/chess-engine.el +++ b/chess-engine.el @@ -235,7 +235,7 @@ (while triggers ;; this could be accelerated by joining ;; together the regexps - (if (looking-at (concat (caar triggers) "$")) + (if (looking-at (caar triggers)) (progn (funcall (cdar triggers)) (setq triggers nil)) 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)))))) @@ -84,7 +84,7 @@ a0 243 (defgroup chess nil "An Emacs chess playing program." :group 'games) -(defconst chess-version "2.0a3" +(defconst chess-version "2.0a4" (defconst chess-version "2.0a7" "The version of the Emacs chess program.") |