diff options
| author | John Wiegley <johnw@newartisans.com> | 2002-03-11 20:57:21 +0000 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2002-03-11 20:57:21 +0000 |
| commit | 871e9bb270b35c621265fc56ec582bdd39900e2a (patch) | |
| tree | 0f031b50dba5beb8a49e697f2488831a32f69655 /chess-standard.el | |
| parent | 442c62fd96d5cb79ab34faf1d8108d86372e96c3 (diff) | |
changes
Diffstat (limited to 'chess-standard.el')
| -rw-r--r-- | chess-standard.el | 16 |
1 files changed, 0 insertions, 16 deletions
diff --git a/chess-standard.el b/chess-standard.el index bc45d3f..b70c028 100644 --- a/chess-standard.el +++ b/chess-standard.el @@ -23,28 +23,12 @@ ;; $Revision$ -(require 'chess-session) -(require 'chess-pos) -(require 'chess-ply) -(require 'chess-game) - (defgroup chess-standard nil "The rules of standard chess." :group 'chess) ;;; Code: -;;;###autoload -(defun chess-standard (session var event &rest args) - (cond - ((eq event 'move) - (ignore - (chess-standard-validate (car args)) - (chess-game-move (chess-session-data session 'current-game) - (car args)))) - ((eq event 'search) - (apply 'chess-standard-search args)))) - (defun chess-standard-validate (ply) "Validate the given PLY against standard chess rules." (let* ((pos (chess-ply-pos ply)) |
