From 4197d08b7f37f9c1155559897d750ad1f53af241 Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Wed, 1 May 2002 01:14:49 +0000 Subject: *** no comment *** --- chess-pos.el | 3 ++- chess.el | 7 ++++--- 2 files changed, 6 insertions(+), 4 deletions(-) diff --git a/chess-pos.el b/chess-pos.el index bfb0353..1f35b45 100644 --- a/chess-pos.el +++ b/chess-pos.el @@ -304,7 +304,8 @@ lowercase to query if black can castle)." (let* ((color (< side ?a)) (long (= ?Q (upcase side))) (file (if long 0 7)) - (king-file (chess-pos-king-index position color)) + (king-file (chess-index-file + (chess-pos-king-index position color))) rook) (while (funcall (if long '< '>) file king-file) (let ((index (chess-rf-to-index (if color 7 0) file))) diff --git a/chess.el b/chess.el index 6478f85..312ab00 100644 --- a/chess.el +++ b/chess.el @@ -81,7 +81,7 @@ "An Emacs chess playing program." :group 'games) -(defconst chess-version "2.0a16" +(defconst chess-version "2.0b1" "The version of the Emacs chess program.") (defcustom chess-default-display @@ -96,8 +96,9 @@ not available." '((chess-sound chess-announce) chess-autosave chess-clock - chess-kibitz - chess-chat) + ;;chess-kibitz jww (2002-04-30): not fully supported yet + ;;chess-chat + ) "Modules to be used when starting a chess session. A sublist indicates a series of alternatives, if the first is not available. -- cgit v1.2.3