diff options
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)) |