*** no comment ***

1 files changed, 6 insertions, 0 deletions

diff --git a/chess.el b/chess.el
index 0d765f8..a026af9 100644
--- a/chess.el
+++ b/chess.el
@@ -171,6 +171,8 @@ available."
 	    (push display objects)))
       (setq first nil))
 
+    (setq objects (nreverse objects))
+
     (let ((module (or engine chess-default-engine)))
       (if (symbolp module)
 	  (push (chess--create-engine module game
@@ -194,6 +196,10 @@ available."
 
 (defalias 'chess-session 'chess)
 
+(defun chess-create-display ()
+  "Just make a display to use, letting chess.el decide the style."
+  (cadr (chess-session 'chess-none)))
+
 ;;;###autoload
 (defun chess-read-pgn (&optional file)
   "Read and display a PGN game after point."