diff options
| -rw-r--r-- | chess-pos.el | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/chess-pos.el b/chess-pos.el index 63e29ee..57f47be 100644 --- a/chess-pos.el +++ b/chess-pos.el @@ -727,9 +727,7 @@ If NO-CASTLING is non-nil, do not consider castling moves." ;; from any piece movement. This is useful for testing whether a ;; king is in check, for example. ((memq piece '(t nil)) - (dolist (p (if check-only - '(?P ?R ?N ?B ?Q) - '(?P ?R ?N ?B ?Q ?K))) + (dolist (p '(?P ?R ?N ?B ?Q ?K)) (mapc 'chess--add-candidate (chess-search-position position target (if piece p (downcase p)) |