mlang pushed a commit to branch externals/chess
in repository elpa.
commit a4443ab82ddd636db096c96c531787bf9c4e79f6
Author: Mario Lang <ml...@delysid.org>
Date: Wed Jun 18 23:48:45 2014 +0200
Unbreak recursive require between chess-display and chess-pgn.
---
chess-ai.el | 6 ++++--
chess-common.el | 3 ++-
chess-display.el | 7 +++++--
chess-engine.el | 2 ++
chess-pgn.el | 1 -
5 files changed, 13 insertions(+), 6 deletions(-)
diff --git a/chess-ai.el b/chess-ai.el
index 06cee58..1a19f34 100644
--- a/chess-ai.el
+++ b/chess-ai.el
@@ -30,11 +30,11 @@
;;; Code:
-(require 'chess)
+(require 'chess-algebraic)
(require 'chess-common)
(require 'chess-polyglot)
-(require 'chess-pos)
(require 'chess-ply)
+(require 'chess-pos)
(require 'cl-lib)
(defgroup chess-ai ()
@@ -306,6 +306,8 @@ DEPTH defaults to the value of `chess-ai-depth'."
(1+ most-negative-fixnum) most-positive-fixnum
(or eval-fn #'chess-ai-eval-static))))
+(defvar chess-full-name)
+
(defun chess-ai-handler (game event &rest args)
(unless chess-engine-handling-event
(cond
diff --git a/chess-common.el b/chess-common.el
index 7de9196..a574288 100644
--- a/chess-common.el
+++ b/chess-common.el
@@ -31,7 +31,6 @@
;;; Code:
-(require 'chess)
(require 'chess-engine)
(require 'chess-message)
@@ -57,6 +56,8 @@
(illegal-move . "Illegal move")
(not-yet-implemented . "This feature is not yet implemented")))
+(defvar chess-full-name)
+
(defun chess-common-handler (game event &rest args)
"Initialize the network chess engine."
(cond
diff --git a/chess-display.el b/chess-display.el
index 439bc2d..537ac6c 100644
--- a/chess-display.el
+++ b/chess-display.el
@@ -29,7 +29,6 @@
(require 'chess-input)
(require 'chess-message)
(require 'chess-module)
-(require 'chess-pgn)
(require 'chess-random)
(require 'chess-var)
@@ -714,6 +713,8 @@ The key bindings available in this mode are:
(interactive "sSet from FEN string: ")
(chess-display-set-position nil (chess-fen-to-pos fen)))
+(declare-function chess-game-to-pgn "chess-pgn" (game &optional indented
to-string))
+
(defun chess-display-kill-board (&optional arg)
"Send the current board configuration to the user."
(interactive "P")
@@ -725,6 +726,8 @@ The key bindings available in this mode are:
(buffer-string)))
(kill-new (chess-pos-to-fen (chess-display-position nil) t)))))
+(declare-function chess-pgn-to-game "chess-pgn" (&optional string))
+
(defun chess-display-yank-board ()
"Send the current board configuration to the user."
(interactive)
@@ -1042,7 +1045,7 @@ to the end or beginning."
(define-key map [(control ?l)] 'chess-display-redraw)
(define-key map [(control ?i)] 'chess-display-invert)
- (define-key map [tab] 'chess-display-invert)
+ (define-key map "\t" 'chess-display-invert)
(define-key map [??] 'describe-mode)
(define-key map [?L] 'chess-display-list-buffers)
diff --git a/chess-engine.el b/chess-engine.el
index 0fef4b0..3672a43 100644
--- a/chess-engine.el
+++ b/chess-engine.el
@@ -19,6 +19,8 @@
;;; Code:
+(require 'chess-algebraic)
+(require 'chess-fen)
(require 'chess-module)
(defgroup chess-engine nil
diff --git a/chess-pgn.el b/chess-pgn.el
index 8001c67..347f28b 100644
--- a/chess-pgn.el
+++ b/chess-pgn.el
@@ -54,7 +54,6 @@
;;; Code:
-(require 'chess)
(require 'chess-algebraic)
(require 'chess-display)
(require 'chess-fen)
