From e15c5ad70e32debce094a3c53caf875afb648338 Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Sun, 14 Apr 2002 23:48:50 +0000 Subject: *** no comment *** --- chess-ply.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'chess-ply.el') diff --git a/chess-ply.el b/chess-ply.el index 22e22d7..5d0836c 100644 --- a/chess-ply.el +++ b/chess-ply.el @@ -251,14 +251,15 @@ criteria." (if (null keywords) (let ((plies (list t))) (dolist (p '(?P ?R ?N ?B ?K ?Q ?p ?r ?n ?b ?k ?q)) - (nconc plies (chess-legal-plies position p))) + (nconc plies (chess-legal-plies position :piece p))) (cdr plies)) (if (memq :color keywords) (let ((plies (list t)) (color (cadr (memq :color keywords)))) (dolist (p '(?P ?R ?N ?B ?K ?Q)) (nconc plies (chess-legal-plies position - (if color p (downcase p))))) + :piece (if color p + (downcase p))))) (cdr plies)) (let* ((piece (cadr (memq :piece keywords))) (color (if piece (< piece ?a) -- cgit v1.2.3