From 2ef00c4beddb77e546cdc212cc502c5a9a4bba6c Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Sun, 7 Apr 2002 08:44:00 +0000 Subject: Simplified the event model, and removed session objects. Now everything just revolves around a game. Gnuchess is now playable to the end, except don't make moves that leave your king in check! The engine still doesn't check for this yet. --- chess-algebraic.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'chess-algebraic.el') diff --git a/chess-algebraic.el b/chess-algebraic.el index cd67c6a..3905659 100644 --- a/chess-algebraic.el +++ b/chess-algebraic.el @@ -62,6 +62,8 @@ This regexp handles both long and short form.") (if (eq piece ?O) (let ((rank (if color 7 0)) (long (= (length (match-string 1 move)) 5))) + ;; jww (2002-04-07): This should be moderated by + ;; chess-standard!! (list (chess-rf-to-index rank 4) (chess-rf-to-index rank (if long 2 6)) (chess-rf-to-index rank (if long 0 7)) @@ -104,8 +106,8 @@ This regexp handles both long and short form.") (list (if (equal mate "#") ':checkmate ':check)))) - (assert changes) - (apply 'chess-ply-create position changes))) + (and changes + (apply 'chess-ply-create position changes)))) (defun chess-ply-to-algebraic (ply &optional long search-func) "Convert the given PLY to algebraic notation. -- cgit v1.2.3