Fix (some) Emacs24 compatibility issues.

8 files changed, 14 insertions, 4 deletions

diff --git a/chess-algebraic.el b/chess-algebraic.el
index 1c6f895..6af6a0c 100644
--- a/chess-algebraic.el
+++ b/chess-algebraic.el
@@ -35,6 +35,7 @@
 (eval-when-compile (require 'cl))
 
 (require 'chess-message)
+(require 'chess-pos)
 
 (defconst chess-algebraic-pieces-regexp "[RNBKQ]")
 
diff --git a/chess-chat.el b/chess-chat.el
index ab1dd3b..dd6f694 100644
--- a/chess-chat.el
+++ b/chess-chat.el
@@ -4,6 +4,8 @@
 ;; saved.  RET is used to send each chat line.
 ;;
 
+(require 'chess-module)
+
 (defvar chess-chat-input-last nil)
 
 (make-variable-buffer-local 'chess-chat-input-last)
diff --git a/chess-clock.el b/chess-clock.el
index c8bb28e..1e5ece0 100644
--- a/chess-clock.el
+++ b/chess-clock.el
@@ -3,6 +3,9 @@
 ;; Implements a chess clock
 ;;
 
+(require 'chess-game)
+(require 'chess-module)
+
 (defvar chess-clock-last-time nil)
 (defvar chess-clock-timer nil)
 
diff --git a/chess-crafty.el b/chess-crafty.el
index 644e343..6f4c8d6 100644
--- a/chess-crafty.el
+++ b/chess-crafty.el
@@ -121,7 +121,7 @@
       (let ((limit 50))
 	(while (and (null chess-crafty-evaluation)
 		    (> (setq limit (1- limit)) 0))
-	  (sit-for 0 100 t))
+	  (sit-for 0.1 t))
 	chess-crafty-evaluation))
 
      ((eq event 'analyze)
diff --git a/chess-display.el b/chess-display.el
index 2807a82..4957f82 100644
--- a/chess-display.el
+++ b/chess-display.el
@@ -121,7 +121,7 @@ of the board, if non-nil, the board is viewed from White's perspective."
       (let* ((chess-display-style style)
 	     (display (chess-module-create 'chess-display game "*Chessboard*"
 			     perspective)))
-	(if (interactive-p)
+	(if (not (or executing-kbd-macro noninteractive))
 	    (progn
 	      (chess-display-update display)
 	      (chess-display-popup display))
@@ -1100,9 +1100,9 @@ to the end or beginning."
   (if (or (null piece) (characterp piece))
       (let ((index (get-text-property (point) 'chess-coord)))
 	(chess-pos-set-piece chess-display-edit-position index
-			     (or piece last-command-char))
+			     (or piece last-command-event))
 	(funcall chess-display-event-handler 'draw-square
-		 (point) (or piece last-command-char) index))))
+		 (point) (or piece last-command-event) index))))
 
 (unless (fboundp 'event-window)
   (defalias 'event-point 'ignore))
diff --git a/chess-eco.el b/chess-eco.el
index 2fa9c3e..dc25aeb 100644
--- a/chess-eco.el
+++ b/chess-eco.el
@@ -25,6 +25,8 @@
 (eval-when-compile
   (require 'cl))
 
+(require 'chess-game)
+(require 'chess-ply)
 (require 'chess-pos)
 (require 'chess-fen)
 
diff --git a/chess-epd.el b/chess-epd.el
index eeaed56..930242a 100644
--- a/chess-epd.el
+++ b/chess-epd.el
@@ -37,6 +37,7 @@
 ;;; Code:
 
 (require 'chess-fen)
+(require 'chess-game)
 (require 'chess-ply)
 (require 'chess-pos)
 (require 'chess-var)
diff --git a/chess-var.el b/chess-var.el
index 9a778bc..4b1b431 100644
--- a/chess-var.el
+++ b/chess-var.el
@@ -9,6 +9,7 @@
 ;; an abstraction layer for applications.
 
 (require 'chess-ply)
+(eval-when-compile (require 'cl))
 
 (defsubst chess-var-plies (var)
   "Return the plies of VAR."