[elpa] 02/02: Unbreak recursive require between chess-display and chess-pgn.

[Mario Lang]

mlang pushed a commit to branch externals/chess
in repository elpa.

commit a4443ab82ddd636db096c96c531787bf9c4e79f6
Author: Mario Lang <address@hidden>
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)