*** no comment ***

3 files changed, 8 insertions, 0 deletions

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)