From 5fbbfaf36f1dc7da3c7539568fe473bbf079c513 Mon Sep 17 00:00:00 2001
From: John Wiegley <johnw@newartisans.com>
Date: Wed, 10 Apr 2002 23:16:18 +0000
Subject: *** no comment ***

---
 chess-game.el | 3 +++
 chess-link.el | 2 ++
 chess-pos.el  | 3 +++
 3 files changed, 8 insertions(+)

diff --git a/chess-game.el b/chess-game.el
index af64241..995e741 100644
--- a/chess-game.el
+++ b/chess-game.el
@@ -166,6 +166,9 @@ matches."
 (defsubst chess-game-to-string (game &optional indented)
   (chess-game-to-pgn game indented t))
 
+(defsubst chess-game-from-string (pgn)
+  (chess-pgn-to-game pgn))
+
 
 (defun chess-game-create (&optional position tags)
   "Create a new chess game object.
diff --git a/chess-link.el b/chess-link.el
index 13a9911..47e58e8 100644
--- a/chess-link.el
+++ b/chess-link.el
@@ -50,6 +50,8 @@ engine, and the computer the second engine."
 	 (game (chess-game-create)))
     (chess-game-set-data game 'my-color my-color)
     (chess-display-set-game display game)
+    (chess-display-set-main display)
+    (chess-display-disable-popup display)
     (condition-case err
 	(when (and (require first-engine-type)
 		   (require second-engine-type))
diff --git a/chess-pos.el b/chess-pos.el
index d24e206..fdc5f6d 100644
--- a/chess-pos.el
+++ b/chess-pos.el
@@ -231,6 +231,9 @@ color will do."
 (defsubst chess-pos-to-string (position &optional full)
   (chess-pos-to-fen position full))
 
+(defsubst chess-pos-from-string (fen)
+  (chess-fen-to-pos fen))
+
 (defconst chess-pos-piece-values
   '((?p . 1)
     (?n . 3)
-- 
cgit v1.2.3