summaryrefslogtreecommitdiff
path: root/chess-standard.el
diff options
context:
space:
mode:
authorJohn Wiegley <johnw@newartisans.com>2002-03-11 20:57:21 +0000
committerJohn Wiegley <johnw@newartisans.com>2002-03-11 20:57:21 +0000
commit871e9bb270b35c621265fc56ec582bdd39900e2a (patch)
tree0f031b50dba5beb8a49e697f2488831a32f69655 /chess-standard.el
parent442c62fd96d5cb79ab34faf1d8108d86372e96c3 (diff)
changes
Diffstat (limited to 'chess-standard.el')
-rw-r--r--chess-standard.el16
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))