diff options
| author | John Wiegley <johnw@newartisans.com> | 2002-04-26 08:31:16 +0000 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2002-04-26 08:31:16 +0000 |
| commit | b6f3fae4d6f47c4098c31059a93dc6cd23cc2c74 (patch) | |
| tree | 48bdea1837d93c049800713911bcda9ff24a70ca /chess-pos.el | |
| parent | 6fe3209092928da896f2f5aa7e8bc648efc2e47c (diff) | |
bug fixes
Diffstat (limited to 'chess-pos.el')
| -rw-r--r-- | chess-pos.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/chess-pos.el b/chess-pos.el index 79a92da..d0b6dd5 100644 --- a/chess-pos.el +++ b/chess-pos.el @@ -530,7 +530,8 @@ indices which indicate where a piece may have moved from." '(?P ?R ?N ?B ?Q ?K))) (mapc 'chess--add-candidate (chess-search-position position target - (if piece p (downcase p)))))) + (if piece p (downcase p)) + check-only)))) ;; skip erroneous space requests ((= test-piece ? )) @@ -631,7 +632,8 @@ indices which indicate where a piece may have moved from." (while (and legal (funcall (if long '< '>) file king-file)) (setq pos (chess-rf-to-index rank file)) (if (or (not (chess-pos-piece-p position pos ? )) - (chess-search-position position pos (not color))) + (chess-search-position position pos (not color) + check-only)) (setq legal nil) (setq file (funcall (if long '1+ '1-) file)))) (if legal |